ASSIGN MISI*(FtLE#L8G0N,|U0CT8!) 
ASSIGN MtCljtFtLFiLeGONjIUOOfl) 
METASVM SI,C!*L»#CN 

• SS Rn* «1* Pp* R3j RmR5#*6jR7'R8#R9#Rio#RU*Ri a* Ri a, Ri 4, Ri5 

• SS SRljSR?*SR3*SR*#Dl>Dg,D3*D4#$ 

• FND 



ACCNTSUM 








133/RFF 


X*8R/BAL 






ACC6UKT 








137/REF 


471/STM 


552/LB 


770/LM 


9!53/LM 


1893/LI 






ACTl 








81P/B 


884*RES 


1053/8 




AF 








!5f»/D» 


9*/U 


75/Dfc 


76/LI 


io*/te*tc 


139A/C6M 


1396/C6M 




AMJDATE 








?BOiiP/RFF 


58iiP/LI 






AMjHED 








?50*1/RFF 


7*3#4/U 






AMSLNK 








250«i5/REF 


7<H.q/STW 






AMiL&G 








2B0**/REF 


723.A/STW 






AMieRG 








2R0«3/ReF 


7«J3 f *?/STW 


741.1/STW 


744,1/S?W 


amiprcur 








?50tl4/RFF 


7*4#«/STW 






AMjPRMaX 








?BQti3/RFF 


7*4t7/STW 






AMJSTD6P 








?R0*7/ReF 


7**,4/STW 






amjxacc 








?50it?/RFF 


7*6t*/STW 






AMERRMSG 








360*TXTC 


106*/TYP£ 






AMHJBILL 








S50*9/REF 


7*8t?/U 






AMR 








746tlO/CALl 


118P«GEN 






AMWERR 








746«*/L! 


1067.RES 






ARFMSG 









93f»/LW 



78/LB 



939/1 W 



92/D8t 



942/U 



93/U 



3B4.TXTC 


157A/SEND 


ARS 




3ns-EGU 


47«/LW 


AST 




i.33ogfn 


165^/CALl 


AUT8CALL 




694. LW 


126*/B 


AUT6EXIT 




6<JF/BNEZ 


7o.^»Lw 


Ba 




570/11 


727/LI 


BaDLGMSG 




8*5fe/CALl 


J251»DATA 


BaOL0G£N 




377-TpXTC 


84Q/STH 


BTNPHFX 




?U/BAU 


191/REF 


BKCHCK 




13H4/BNE 


1357.CI 


BLANKS 




327.TFXT 


46ft/LK 


870/LW 


8«5i«i/LW 


Bummer 




10<*3.RfS 


1137/CATA 


BUMMERl 




509/BK'E 


511 /BNE 


1046. BaL, 




busy 




97F/&E 


98D/BE 


BYTF 




1M1/LIM 


Ul*.EQU 


CARRRTRN 




1087/DATA 


l09n»DATA 


CF 




139#»/C«M 




CNAR9K 




13BJ/BF 


136P-CI 



81S/LW 



1105/EGU 

1253/OATA 
533/BAl 



469/LW 
!85t6/LW 



933/BNE 
982/BF 



851/LH 



1105/FQb 



848/BAl 



47Q/LW 



935/BNE 
1057»RES 



1411/LIM 



1690/BAl 



B23/CW 



938/BNE 



1768/BAL 



697/LW 



177<*/0AI~ 



698/Uw 



941/BNE 



944/&NE 



CirANUP 

clgsp 

5c?/CALl 

CLSMAIL 

688/CAtl 

C9CLN 

3«$0/ r FF 
C8MMA 

1340/BKE 
CftMPPs 

S40-LB 
C8NCAT 

488/BAl 
CRATE 

1484/CAll 
DCBAR 

309-EQU 
DCBER 

3n8«E£3U 

OTSPLTNF 

3K7/0FF 
D9IT 

PeUBLFZFRfl 

DftWN 

34«?.TXTC 
ECM6WTE 

817/CALl 
ERAC 

33S-TXTC 
EREXT 

33P-TXTC 
ERID 

337.TXTC 

ERIDMS3 



898/CALl 
1213*GEN 

53P/LW 
134P/8NE 

5^7/BL 

49*/BAl 
X56n/CALl 



37**DATA 

i39*/B 
43R/L0 
90R/TYPE 

li6?*GEN 
8o*/TYP£ 
82A/TYPE 
820/TYPE 



929/CAll 

847/AND 
1347*CT 

1383-LT 
1639-RFS 



844/MTW 



974/CAll 



1689/AND 



104B/CAL1 



X169»3EN 



79/CAll 
ERtDMSGS 

81/CAll 
ERRC8DFM 

«37/STW 
ERRTRY 

189/RPF 

EVTHNSK 

7557/BpZ 

FDERR6R1 

1548/BE 
FTLPXMSG 

3B7.TXTC 
FPTCLSLL 

152?/CAL1 
FST 

772/CAH 
GHST 

409/BCS 
Ha 

7?8*?/l! 

half 

1 MS-ECU 
HrLDMSG 

3M-TXTC 

I 

KfuDe 

IDMSQ 

34?.TXTC 
INMSG 

477/CAll 

inquire: 

4K9.RFS 

I8ERRBR 

8<J6»RFS 

J8ABUF 

1P«/R£F 



l094«GEN 

llln.GEN 

19P/REF 

76P/8NE 
1574.RES 

66A/TYPE 
1531. GEN 
122*. GEN 

Mfc-EQU 



1647/TYPE 
5Q/LI 

47A/TYPE 
U23»GEN 

83P/B 
1191/DATA 

567/STW 



909/SfND 

838/STl* 
768-EGU 



75»D6 



1648/CAll 



988/SEND 



1550/SEND 



1576/SEND 



159Q/SEN0 



76/LI 



78/LB 



JlASSIGN 
JjCCBlJF 

JIJIT 



207/REF 
137/RFF 
153/RpF 



13^/RpF 
475/STM 
605/ST^ 
741/LW 
1019/LC 
U99/LC 

19F/RpF 

161/RFF 

119/RFF 
9<*9/STM 

167/R?rF 
169/RFF 



J»XP 

JABC 

JACCN 

vJBJLC 
JBILPP 

J8JMAX 

237/RfF 
JBlNFPBeL 

aos/REF 

JBjPRfV 

163/RpF 
17SA/STB 

gcpp© 

iss/RfF 

jcusrfrr 

628/BL* 
JFUPVP 

i54/R£F 



581 /STS 


593/STS 




70<5/STM 


711/STB 




440/STW 






310/EQU 
49ft/Xi* 
651 /LI 
744/LW 
1Q7S/STB 

*67*/LC 


4Q8/LC 
499/XW 
663/LW 
759/L! 
1288/LI 
U81«8/AND 


410/Lfc 
5Q4/STM 
669/STW 
771/STM 
1411/LIM 
1^90fl/LC 


59M/STN 


608/STH 




781 /STB 






*ln/L^ 
128A/LI 


475/STM 
1695/LM 


498/XW 


787/LI 






461/LI 


463/L? 


78S/LI 


617/LB 


638/STB 




14H/L1M 






574/11 


586/LI 


150S/ST8 


60S/STW 






630/BEZ 


1C18-EQU 




43^/LI 







423/STCF 
§35/LC 

671/LW 

780/STB 
1473/LB 

U9i/UM 



499/XW 



794/LI 



1700/LB 



445/AND 

540/LB 

677/STW 

781/STB 
1480/STB 



504/STM 



1703/ST8 



478/&TM 
568/5TW 
701/UI 
949/STM 
1489AC 



540/LB 



1708/STB 



JMSLDCF 










245/RfF 


14BA/L! 








URMST 










1«^/RFF 


78D/STB 


1480/STB 






jtelflgs 










129/RFF 


563/STW 








*JUNAMfr 










1?>?/RFF 


47P/STM 


771/STtf 


1073/STB 


1473/LB 


KFYBUFF 










187/RFF 


48«s/LI 


972/LT 


1A87/STW 


1729/DATA 


L 

9fc*/8R 










IF 










??7.RpS 


74*RES 


91-RfS 


106iTEXTC 




LTM 










139^-CeM 










ITMTNF6 










&SP/LW 


140P«RES 


1408/EGU 






LTMINF6A 










6K7/CI 


UCAoECU 








LTMSTeFp 










660/EXU 


1397-RES 








LTST 










2KP-EGU 


959/STM 


964/STM 


965/CALl 


971/STM 


LTST18C 










17P/RFF 


25*/EGU 








LMTSZr 










304.EGU 


6in/LI 


643/L! 


1441/LI 




LftFFMsG 










358*1« TXTC 


763/TYPE 








UGFIU 










5(M/CAUl 


967/LM 


1189-GFN 






L9C5IT 










5!LA/Bp^ 


521 -RES 


975/B 






U0G1T10 










524/BKiE 


52R/BEZ 


531-RFS 






L8GITS 











973/CALl 



L9G8FF 

41 1/BNEZ 
LBG6FFX 

147F/8F 
IB6&FFX1 

766*P/B 
19G6FFX? 

t02>*/B 
LfiG©FFX3 

1500/BCR 
LftG8FFX^ 

151.P/BAZ 
IfiGeN 

396-RFS 

L0G©NJCQC 

31>VGFN 

L8GRECSZ 

306-EQU 

1333-BDK 

LRUCC 

2«3«EGU 

iRfAOTS 

2«?4»EGU 

URI ARAD 

292*EGU 
LRIB1L 

290-EGU 
IRJCPA 

28S-EGU 
LRlCPN 

289-EQU 

LRJCPP 

2«7»EGU 
LRSDMR 

293. EGU 



530/BIR 

M7/BANZ 
1477/BF 

U87/B 
1501 »EGU 
1503/BEZ 

1520/11 

180S/END 

H?/B 
U9S/DATA 
1344/BEZ 
95n/STM 
67P/SI* 
664/$to 
727/LI 
70A/IM 
694/LW 
707/LM 
59*/LH 



421/Br 
1488-EGU 

i#90/BCR 

1515-EGU 
1523-EGU 

433/B 
1346/B 



703/UW 



600/LH 



1472«RES 



1492/BE 



451»FGU 



1356/B 



704/LW 



1570/B 



1494»EQU 



1371/B 



LRSFACCT 

295»EGU 
LRSFG 

2S?UEGU 
LRlPRfV 

891-EQU 
LRJRW 

286.EGU 

9^7/STM 
LRJUSML 

29»*EGU 
IR1UGMR 

301.EGU 
LRJUNML 

2«3*«EGU 
LRIUNMP 

3H2-EQU 
LRIUNMR 

299-EQU 
LRIU6ML 

2<3?.EQU 
IRJUBMR 

300-EOU 
LRJUPFLG 

3G3.EQU 
LRlUSR 

284,EQU 

Lie 

147C»TE*TC 
MlACINIT 

281/SREF 

m:eb 

116/REF 
172IA/QEN 

m:ll 

233/RfF 
MJL6G 



527/LW 
577/LW 
570/LI 



644/CW 

68n/LI 
611/CH 
64H/LW 
613/LB 
681/LI 
954/STM 
X49a/TYPE 

75*/LI 

260/EQU 
173*/GEN 

X517/CW 



956/STN 
518/LM 



261/EQU 
1777/LH 

1519/tI 



782/STto 



783/STW 



871/STW 



872/STW 



74*»7/LI 



1531/GEN 



829/LI 



1182/6EN 



1720/^EN 



H:ec 

M JRATP 
MIUC 



MlXi 



^AILMSG 

masi 
master 

maxg 

MCLL 
MCLLCNT 

HCLLMSG 

MDCPU 

MDP0 

MfrRTAB 

MFSSAGr 



Mpa 



MPP8 
MRCPL 



25f/RFF 
261 .ECU 

H7/REF 

1689/AND 

34«UTXTC 

31«»GEN 

H*/ReF 

1099-6EN 

uo?/Data 
iio?«data 

123*«DaTA 
199/RpF 

365-EQU 
8B7/CAL1 
201 /RFF 
197/REF 



H3P/QEN 
X243/GEN 

X601/QCN 

259/EQU 

X19*/GEN 

6S9/TYPE 
16SR»CALl 
#25/CALi 
42*/l! 
X5o*/CALl 
XlOR-EGU 
Xlcs/EQU 
X49S/CAL1 
X40*/LIM 

58lt«/STW 
X243»GEN 

X40«i/LIM 
X404/LIM 



1169/QEK 

1626/GfN 
415/Ln 

1213/GeN 



1510/CALl 



723«2/LT 



1175/GEN 

l*<fO/G£N 
419/ANO 



1189/GEN 



B39/LW 



847/AND 



1633/^EN 



1184/OATA 



10 



123*»GEN 


U9A/CAL1 




MUP8 






803/RpF 


UQ7/LIM 




NAMACT 






341-TXTC 


1047/TYPE 




NAME 






77/De 






NfWLINE 






31 9*DaTA 


4&3m/TYPE 


453»1/TYPE 


674/TYPE 


674/TYPE 


689/TYPE 


90S/TYPE 


984/TYPE 


1025/TYPE 


NrXL»»P 






555P-LB 


559/BL 




NsrXT 






542/8F 


54«»LI 




N8SRFS 






443/BpZ 


1004/BE 


1010- EOU 


NBACCFSS 






5PO/BNE 


86«J*EQU 




NeCeNNCCT 






774. ECU 


165.1/8E 


1658/B 


N6TMGMSG 






36?*TXTC 


1657/TYPE 




N8MAIL 






1800/DATA 


1201 /DATA 


1258-RF5 


N8^SG 






753/CALl 


108«;*GEN 




NBQCMjRG 






84F/BEZ 


8«S*«ECJU 




NQRATF 






1540/BE 


155«"RES 


1583/B 


N8RETURN 






897/CALl 


92JI/CAL1 


1044/CALl 


N8THERE 






346-TXTC 


984/TYPE 


988/SpND 


NUM 






•5S/D8 


7S/D8 





476/TYPE 

689/TYPE 

1068/TYPE 



1R95/B 
1175»GEN 



5?1«B/TYPP 

763/TYPE 

1493/TYPE 



666/TYPE 

763/TYPE 
1647/TYPE 



666/TYPE 

843/TYPE 

1657/TYPE 



1B59/CAU 
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SFFMSG 

3*a»l«TXTC 


766H/SEND 


9NATM 








34^,TXTC 


521.R/TYPE 


89PS 








9J?6-RF:S 


il3*/DATA 


6QPS1 








931/BNE 


97*»RES 


8PENIT 








SOOCALl 


1060/B 


9PMES 








173/RrF 


53A/STH 


BPNL868N 






son/CAli 


95A/LM 


8PNMAII 








6«7/CAll 


X19R.GEN 


8PNRFMSG 






3K**TXTC 


X55H/SEN0 


©RATE 








148?/CAtl 


X6on«RES 


eun 








5R4/BF 


5fcn»A! 


0UT3 








373/Bf: 


577»llw 


6UT3A 








5«!?/Be* 


59n»£QU 


8UT4 






Ol I Wax 1 


6(}1/6f£ 


604-LI 


"UTgA 


6n«»tN 


639/BDR 


8UTB8 








411»CH 


61A/BDR 


8UTRC 








61P/BKE 


6lA»BDR 


9UT5D 


619-ANlD 




8UTSE 







543/STB 
962/LM 



b;49/STB 
1132»G£N 



555/ST8 



561/STB 



562/SEND 





6n«?/B 


621/BNE 


fea3-EQU 






8UTSEA 














6??*/BNE 


637*EQU 


1C20/BCR 






GUT!*F 


609/BF* 


639»BDR 








8UT6A 


64?«LW 


6<M/BDR 








9UT68 


644*CW 


64*/BDR 








euT^c 


645/8E 


64A*lW 








eirr*E 


649»Cto 










»UT*F 














647/B 


65n/BE 


661*BDR 






©UT8 


6<>S/BGEZ 


66S«»5TW 








euTQ 


675/BGEZ 


677»STW 








PJJTT 


!1.?/DpF 


3in.£GU 








packxmsg 












3S8-TXTC 


674/TYPE 








Parse 


480/BAU 


1281 «RES 








PARSE10 


131A/BF 


1329«RES 








PASSWBRD 












34C-TXTC 


883/TYPE 








PCA 


13!50/BNE 


135S»CI 








PRDCRM 














214/KFF 


663/LW 


669/STW 


741/L* 


1409/LIM 


PRDPRM 














aiR/REF 


671 /LW 


677/STW 


744/L* 


1413/IIM 


QUEST 


34F*TXTC 


88S/TYPE 












13 



RASICBP 














441/SREF 


44P/LI 


446/STB 


449/STS 


150P/LI 


1512/STB 


1514/STH 


rasjrfs 














1011/SfNO 


103S>«TE*TC 












rasiusr 














100S/SFND 


1033-TEXTC 












ratebusy 














154?/Be 


X544/BE 


1546/Bf 


1R67»RES 








Ratferr 














1337*RF$ 


160.VDATA 


160*/DATA 










rateflag 














13F/RFF 


1481/STW 


1562/STW 










RATFIN 














148S-BaI 


X563/B 












RCAL1 














S1P/CI 


164A»CAL1 












RDL6GSNM 














3K0»TXTC 


90Q/SEND 












RDRATFRR 














1S87-RFS 

Rfcbnnect 

773/BCR 


16**/DATA 


1629/DATA 










813/BE 


1646-EGU 


1654/B 








RFCeNNBUT 














16BA/BCR 


1650*FGU 












KFCoRD 

17?/RFF 


46*/STW 


508/CW 


siq/cw 


Si5/(iT^ 


518/LM 


527/i»w 


370/11 


577/Lw 


596/LH 


600/LH 


fcll/CH 


613/LB 


644/tiM 


44S/LW 


664/SW 


672/Sw 


ASO/Ll 


681/Ul 


694/LW 


703/UW 


704/LW 


70*/LM 


707/LM 


727/LI 


758/L! 


782/STW 


7$3/bT* 


•50/LI 


871 /STK 


872/STW 


947/STM 


950/STM 


954/STM 


956/STH 


1126/DATA 


X164/DATA 


1192/OATA 


1335/lB 


1605/DATA 


1649/LB 


1676/STM 


169S/STM 


1701/STW 


1707/UW 


1710/LM 


1716/GEN 


1729/OATA 


1767/STW 


1770/lkl 


178^/LW 












RFCSIZF 














17S/RFF 


46*5/1! 












Rfsjabn 














1001-EOU 


163R/DATA 













RfSjERR 

1000«EQU 
RFTRFQ 

ass-Type 
RfTURN 

1 177/DaTA 
PQMST 

431 /Br 
RRATE 

1483/CAti 
RRFMSG 

3S5*TXTC 

sscaup 

253*1/RFF 

SlGJSBACN 

149/RfF 

SSGJ0BT6L 

144/RpF 

SlGUlS 

142/RfF 

SJ9UIS 

UO/RFF 

SBjGJeBUN 

147/REF 

SCAN 

SCRAM 

249/RpF 

SFCAT 

497/LM 
SFCTI6N1 

110/DFF 

sfmd 

!55«CNAM£ 

SFND6PMS 

61/CALl 

sftfabn 
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163R/DATA 
1261 /BF 
117S/DATA 

434»EQU 
162K.RF.S 
159O/SEN0 
167Q/LW 
43K/STD 
430/CD 
427/MTW 
48A/MTW 
437/STB 
129S/BAL 
131Q/BAL 
1H*«.RFS 
3l3»RES 

lia/REF 



1263/BF 
1270-RFS 



1P65/BE 



436/STD 



1304/BaL 



1312/BAL 



133Q*RES 



SFTFRR8R 

«o.CNAME 
SFTLDCF 

6«?/BaL 

SFTLDCF? 

144fi«lH 
SFTLDCF4 

1 44?. CH 
SFTLDCF* 

144?/B£ 
SFTLDCF* 

1445/B 

SFTRF.S 

4??<»/CALl 
SWIRNM 

83S/REF 

Snisymt 

24?/R£F 

SLINAME 

239/RpF 

SLASH 

347.TXTC 
SLAVE 

S9RRY 

343-TXTC 
SPEC 

1410/UIM 

ST06PT 

no.i/RFF 

SVJFTYM 

241/Rgf 
SVJLIM 

238/RFF 
SVJRSIZ 

234/RFF 



831/CAL1 

1437«RES 

1461 /BDR 
1444/BDR 
1447-LB 
1461 •BOR 
163^«GEN 

60«/LH 
I44fi/LH 

64P/LW 
1050/TYPE 

45n/LPSD 

841/TYPE 

141P/LIM 

7*4.*/LW 

X43H/LI 

641/11 

607/LI 



i£19«GFN 



lb 



l«J21/CALt 



1417-EQU 



SYNPRINT 

809/B 
SYNTAX 

81P-RFS 

SYNTAXA 

8G5-BAL 
SYN'TAXB 

819.BAL 

SYMTAXC 

8;?g«BAt 
SYS 

35?s.tfxt 
sysaccnt 

26?«EQU 

SYSUNAMr 

263-EGU 

SYSUSR 

326-TFXT 

TFL 

3P4-TXTC 
THISISIT 

31P-CSECT 
TTM 

3*?9-GpN 
TTMBUF 

TTMBUFi 

194/RpF 
TTMER 

4R3«P/CaLi 

TIMEVfRT 

114/RFF 

TT M KWD 

35?g.TrXT 

TMDCRM 

2J?4/REF 

TMDPRM 



lb 



8P4/B 
UPS/DaTa 
lggp/BG 
X297/BE 
1309/B 

70H/LM 

3PS/TEXT 

32*/TEXT 

937/Cw 

69*/LW 

39R/USECT 
#53»1/TYPE 

4SA/TYPES 

723»7/L> 
S^lti/CALl 
5«lt4/BAL 
649/Cw 
141A/STW 



828-RFS 
1314/BG 

1299/BG 

932/CW 
1150/TEXT 

94Q/C* 



521.7/TYPES 



1119-Gr\ 



886/B 
1363/BGE 



934/CW 
1M8/TEXT 

94-3/CW 



1119/GEN 



1478/STW 
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222/RPF 


Ugi/STW 








TMPDCPK 


s;?*/Ref 


X419/STW 








TMPDPPK 


227/ReF 


Ugp/STW 








TRIES 














8cR/BaU 


814/BAL 


819/BaL 


S25/BAL 


83A»LW 


TRTFSt 














845-RPS 


914/B 


995/B 


1074/B 




TRYFRR 


307. EGU 


83S/CI 








TSTACK 














248/RfF 


1317/PSW 
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AUTOCALL PASSWORD 

AUTO.CaLL ACCOUNT 

AUTOCALL PR8CESS8R iMN NamE 

BATCHjON»LINE,GHOsT BILLING 

BATCHjeN.LINEjGHesT PRTVILEGE 

ACCU, PERM RAD S^ACE 

DEF AND MAX FILE RETENTION PERIOUS 

ACCU PERM DISK SPACE 

EXTENDED ACCOUNTING INFORMATION 

USE« LIMIT SPECIFICATION TABLE <H A LF< 

8N.LINF LIMIT 

GH8ST LIMIT 

RES8URCE NAME TA»LE<HALFW8RD) 

8N.LINF RESOURCE VALUE(BYTE) 



HOI 



181*4 


SEP 08* '75 


301 


0000006*. 


30? 


000Q007S 


303 


0000007* 


304 


0000000*" 


305 


OOOQOOO* 


30ft 


000Q0G7& 


307 


ooooocos 


308 


ooooooo* 


309 


oooaooo* 


310 


EXT 



LR1UGMR 

LRIUKMP 

LRIUPFL6 

LMTSZE 

ARS 

L8QRECSZ 

TRYERR 

DCBER 

DCBAR 

p:jit 



fQU 
ECU 
ECU 
EQU 
FGU 
ECU 

ECU 
ECU 
ECU 

ECU 



110 

114 

1?2 

15 

UC*4 

1?6 

5 

3 

4 

JUIT 



L8Q8N/L8Q8FF 



3l 

GN8ST RESOURCE VALUE (BYTE) 
PERIPHERAL NAME TABLE (HALFW8RD ) 
8N»LINE PERIPHERAL AUTH8RlZATI9MBYTi 
SIZE 8F LIMIT TABLES IN 5USERS RLC6R^ 
ACTUAL REC8RP SI if? 8F LAST REC8RU RE 
L8Q8N REC8R0 SIZE (NOW EXPANDED) 
ERR8R RETRY COUNT 
ERR8R RETURN POINTER IN PCB 
ABN8RMAL RETURN P8INTER IN DCB 
F8R DISPLAY 



Hoi 



18154 ? 


?ep oSs 


'75 








CP-V L8G8N/L8G8FF 


311 












PAGE 




31? 


04 


00000 






TNISISIT 


CSECT 


1 


3l3 


04 


00000 






5ECTI8N1 


RES 





314 












B8UNQ 


© 


31R 


04 


00000 


0&D30AC7 


A 


TXL8G8N 


TEXTC 


IL8Q8M 




(34 


00001 


D6D54040 


A 








316 


04 


00002 


OUConcCB 




SLAVE 


GEN#8j 


4j?0 Qj12*LBG8NjC8C 


317 


04 


00003 


OUOOOGOO 


A 




DATA 





318 


04 


00004 


0*000000 


A 


MASTER 


GENj8j 


?4 8jO 


319 


04 


00005 


QilBnooo 


A 


N'EHLINE 


DATA 


X'QHSCCOO! 


320 


C4 


0O0C6 


f^Feoooo 


A 


YFFFE 


DATA 


XtFFFFOOOO' 


321 


()4 


00007 


0^000000 


A 


Y03 


DATA 


X» 03000000* 


32? 


(34 


00008 


OQOOFFFF 


A 


XFFFF 


DATA 


XtFFFF' 


323 


04 


00009 


QOoipFFF 


A 


)(IFFFF 


DATA 


XI 1FFFF' 


324 




04 


QOCO* 




TEL 


TXTC 


?TEL' 


325 


04 


0000B 


7*E2F«E2 


A 


SYS 


TEXT 


SYSACCNT 




04 


OOOOC 


4U404040 


A 








36" 


04 


OOOOD 


D3C2fS40 


A 


SYSUSR 


TEXT 


SYSUNAME 




04 


OOQoE 


4U404040 


A 










04 


OOOOF 


40404040 


A 








327 


04 


00010 


40404040 


A 


BLANKS 


TEXT 


t i 


328 


04 


00011 


E3C9D#C5 


A 


TIMKWD 


TEXT 


»TIME» 


329 


04 


00012 


1W07F7C5 


A 


TIM 


GEN#16 


,16 X»1CQ7»j»XEi 


330 


04 


00013 


D9D6F740 


A 




TEXT 


!R8X f 


331 


04 


00014 


C3D7*oE5 


A 




TEXT 


tCP»V» 


33? 


04 


00015 


4UC1P340 


A 




TEXT 


t AT t 


333 


04 


00016 


E*D6F4D9 


A 




TEXT 


tY8UR» 


334 


04 


00017 


4gE2C5D9 


A 




TEXT 


t SERt 


33F 


04 


00018 


E&C9C3C5 


A 




TEXT 


»VICE* 


336 


04 


00019 


; 0onooo 


A 




GENjgj 


?4 X«07'j0 


337 




04 


cod* 




ERID 


TXTC 


?ID » 


338 




04 


000l tt 




ERAC 


TXTC 


ucceuNT f 


339 




04 


OOOit 




ERE^T 


TXTC 


tpXTt aCnt« LEFT 8 


340 




04 


0002* 




PASSW8RD 


TXTC 


tpASSwSRD t 


341 




04 


0002° 




NAMACT 


TXTC 


IACC8UNT/TD i 


34? 




04 


0002b, 




1DMSG 


TXTC 


IL8G8N PLEASE! • 


343 




04 


0003«i 




S8RRY 


TXTC 


tSSRRYj UNABLF T8 L 



32 



♦♦*#L8G8Ms Return t8 slave msde** 

NEW LINE MESSAGE 



RIGHT PAREN. MISSING? 



Y8u 8ND» LAST BYTE IS EST 



Hoi 



18*3 

345 
347 

J5 w o 

349 

350 
354 
355 
356 
357 
358 

!* 
360 
361 
362 

1* 
363 
364 
365 

1* 
36ft 



36 y> 
370 



371 
37? 

3?3 



4 REP 08* 
04 
04 
C4 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

05 00000 
05 

05 00000 

OF 00000 

05 000C1 

05 00002 

05 00003 

05 00004 

05 00005 

05 00006 

05 0OQ07 

05 00008 

05 00009 

05 00009 

05 0O0OA 

05 0000B 

05 OOOOC 

05 OOOOD 

OS QOOCE 



♦75 

O0C3A 

0003** 
000*3 
0004& 
Q0C4C 
00040 

ooose 

0005^ 
00C63 
0006^ 
0007X 
00C7A 

00083 
00080 
00C96 

00C9U 
0OOA3 



oooou 



oooooooo 

0U00OGOO 

oooooooo 
ouoooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 



40404040 A 
40404040 A 
40404040 A 
OOOOOOOO A 
OOOOOOOO A 



8NATM 

cawN 

N8THERE 
SLASH 

QUEST 
MAILMSG 

rdlsgsnm 

ARFMSG 

RRFMSG 

8PNRFMSG 

FIUEXMSQ 

PACKXMSG 

L8FFMSG 

AMgRRHSG 

HELDMSG 

NQIMGMSG 

8FFMSG 

# ASS 

MERTAB 



8N RAD» 
L8G8N FILE* 



£P»V L8G8N/LBQ8FF 

TXTC »8N AT I 

TXTC IUNREC8VERABLE 1/8 

TXTC IABN8RMAL ERR8R 8N 

TXTC ♦/' 

TXTC ' ♦ 

TXTC 'CHECK DC/MAILB8X' 

TXTC ?UNREC8V£RABLE ERR8R READING USERS FILE* 

TXTC 'UNABLE T8 ACCESS RATE FILE* 

TXTC 'UNABLE T8 READ RATE FJLE' 

TXTC »UNA8LE T8 8PPN RATE FILE* 

TXTC 'FILE ST8RAGE LIMIT E*CEEDED(RADP 

TXTC 'FILE ST8RAGE LIMIT EXCEEDED<PACK ) ' 

TXTC MNSTALLATI8N PR8HIBITS Y8UR L8GGING 8Ni 

TXTC 'UNABLE T8 WRITE ASSIGN*ME*GE REC8ND' 

TXTC 'PROGRAM HELD* REC8NNECT ' 

TXTC 'HELD PR8GRAM TIMED 8UT.t 

TXTC »8FF« 
TGN/MFPGE TABLE IMAGE 

CSECT DATA AREA 

FGU * 

D8i 9 

DATA 



33 



D81 
DATA 



DATA 
DATA 
D81 



XI40404040' 



USER NAME (3 WDS) 



L8G8N TIME 
BILLING TIME 
EXT. ACCNT. FIELP 



(6 ^DS) 



HOI 



IAS 

374 



37S 

376 
377 



34 REP 08j 

os ooooE 

05 OOQOF 
OS 00010 
OR 00011 
05 00012 
OB 00013 
OF 00014 



37* 

38? 

383 
384 
38S 
386 
387 
388 
389 
390 
391 
39? 
393 
394 
395 

396 

408 

409 



OF 

OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 



00015 
00016 
00017 
00018 
Q0019 
0001A 
OOOlB 
OOOlC 
0001D 

0001E 
0001F 



OS oo£oc 

04 000A4 
04 000A4 
04 G0QA5 



»75 

40404040 A 

^0404040 A 

<*0404040 A 

40404040 A 

4U404C40 A 

404Q4040 A 

00000000 A 



DATA 



2*E405E2 
E*C3C3C5 
ESE2C6E4 
D34003D6 
C7D6DR40 
CIE3P3C5 
D4D7F340 
D<?D54nD3 
C9D5f.B40 
707B6840 
CSC47A40 



7020H00O X 
65?4oncA9 



CP-V L8G8N/LBG8FF 
Xf404o4040» 



34 



DISPLINE DATA 

# 

BADL8G8N TEXTC 



SET TQ T8 INHIBIT BAD L8G8N MSb 

BEING SENT T8 8C» 
•UNSUCCESSFUL L6G8N ATTEMPT 8N LINE **» iDP 



LIST 
THIS PR8CESSBR C8NTAINS THE TW8 R8UTINESJ L8G-8N AND L8G-&FF. 
L8G»6N INITIALLY RECEIVES A USER REQUEST F8R SERVICE* ACCEPTS HIS 
IDENTIFYING DATAj TESTS F8R A LEGAL ACC8UNT AND REJECTS HIS REQUEST 
IF HE IS N8T AN AUTH8RIZED USER. IF HE IS A VALID USER* HE IS 
SERVICED BY CALLING TEL* 8R# IF PREVI8USLY SPECIFIED* ANeTHER US£K 
ASS8CIATED PR8CESS8R, 

THE L8G.8FF R8UTINE IS CHARGED WITH THE CLEAN-UP WHEN A USER HAS 
C8MPLETED A SESSI8N t IT WILL RELEASE TEMPORARY FILfS, INITIATE THL 
1/6 RUNDOWN PR8CESS AND P&RF8RM THE USER ACC8UNTING FUNCTI8N. 



F8R THF L8G.8N PROCESS* EnTrY IS FR8M ThE M8NJT8R AS A RESULT 8F A 

TERMINAL ACTT8N, A SKELETAL JIT IS PR8yIDED WITH THE USeR NUMBER AS 
SYSIDt 

usect thisisit resume pt 1 

L8G8N RES 

LC JiJIT CHECK F8R GH8ST NftDE 

BCS*4 GHST B/YES s SEE IF N8N.C8C USER 



HOI 



1813* < 


?EP 08j 


»75 






410 


04 


0O0A6 


3*400000 


F 


L>#R4 


411 


04 


00QA7 


6^300415 




BNEZ 


41? 


04 


0O0A8 


6*00O0CB 




B 


413 










♦ MUST BE GHGST 


414 




04 


OGCAy 




GHST FGU 


41!S 


0* 


OO0A9 


SBionooo 


X 


Lh,Ri 


416 


04 


OO0AA 


21100060 


A 


CI/R1 


417 


04 


C00A8 


6^400415 




BAN* 


418 


0* 


0O0AC 


2*l0FFFF 


A 


Ll,Rt 


419 


04 


000AD 


4*100001 


N 


ANDjRi 


420 


04 


OOOAE 


2il0p4C3 


A 


CI # R1 


421 


4 


OOOAF 


6^300415 




BE 


42? 


04 


00080 


0^3000AO 


A 


LCFI 


423 


04 


00081 


74000000 


X 


STCF 


424 


04 


0O0B2 


G*l0O490 




CALlii 


425 


04 


0O0B3 


0^600004 




CAL1j6 


426 


04 


000B4 


33100000 


X 


MTW#i 


427 


04 


000B5 


3^F0OO00 


X 


MTV*i.1 


*f & o 


04 


00086 


2210OO00 


N 


Ll#Rl 


42*5 


04 


0OQB7 


1*200000 




LOiH? 


430 


04 


0O0B8 


U22OC00 


X 


CDiR? 


431 


04 


000B9 


6»30O0BC 




BE 


43? 


04 


OOOBA 


64loooB8 




BDR#Ri 


433 


04 


OOOBB 


6<*00O0CB 




B 


434 




04 


QCCBL 




RGHST FQU 


43S 


04 


OOOBC 


122C0000 


X 


ld#r? 


436 


04 


OOOBD 


1^220000 


X 


RTDiR? 


437 


04 


OOOBE 


7 b 22OG0O 


X 


STB#R? 


438 


04 


OOOBF 


1&22OG00 


X 


STDjR? 


439 


04 


OOOCO 


2*100000 


N 


LI#Rl 


44Q 


04 


OOOCl 


35100000 


X 


STW4R1 


441 










SREF 


44? 


04 


0O0C2 


2*lCO000 


N 


LIjRi 


443 


04 


000C3 


6»3002BF 




BE2 


444 


04 


0O0C4 


2*l0FFPF 


A 


LIjRi 


445 


04 


OOOCB 


4»l0O000 


X 


AND#R1 


446 


0* 


0O0C6 


7&100000 


X 


STB#R1 



CP-V LOGON 
JjglT+UACCN 
LBG8FF 
L8GON1C8C 
. SEE IF N&N 

MjUC 
X«60t 
L8Q8FF 
XiFFFFf 

MjUC*i 

tuc 

L8G8FF 

10 

JUIT 

SFTRES 

MASTER 

SI9UIS 

SJGUIS 

MAXG 

TXL8G8N 

S:GJ9BTBL,R 

RGHST 

$•2 

L8G0N:C8C 

ft 

D8UBLEZER6 

S?GJ8BTBL#R 

SBlQjaBUNjR 

S!GJ8BaCN j R 

JEUPVP 

JjEUP 

RASJCBP 
RASJCBP 

N8JRES 
X»FFFF» 
J8JIT 
RASJCBP 



/LBGOFF 3b 

NO, GET ACCOUNT FIELD 
REGULAR USER LOGGING OFF 
REGULAR USER LOGGtNG ON 

■COC USER LOGGING ON, 0* GHOST LOGOFF 



IF UC IS ePEN/HAS BEEN 8PEN 1 He IS 

••••LOGGING &FF 

8/ MlUC IS 0PEN 

MASK TO PICK UP DEVICE NAME 

DEVICE NAME (UCjMCjFTC. , . ) 

IF UC, T*!S IS N»T A NON»COC USfcK 

L8G 8FF REGULAR UH8ST 

MAKE THIS FLAG 

FBR THF »NON C8C USER 

SET ERR/ABN FOR IMPLICIT OPEN 

GO MASTER MBDE T» CHANGE L8W C8RL 

BUMP 8NLINE USERS IN SYSTEM 

DECREMENT GH8STS IN SYSTEM 

MAX LENGTH OF GH&ST TABLfcS 

OUR NAME IN TEXTC 

FIND LOGBNtS POSITION TN TABLES 

GOTCHA 

###*##WEIRD* # *#* # * 



BLAST L8G8N QUT »r THE GHOST TABLES 

CLEAR USER NUMBER 

CLEAR LOGON fS ACCOUNT NUMBER 

L8WER USER'S VIRTUAL 

TOP ADDRESS BEL8W TEL..*** 

EXISTS ONLY IN 56o SYSTEMS 

IS 560 SYSTEM 

SHOULD HAVE NEVE* HAVE G&TTEN H£KE 

8KAY . MASK T8 PICK 

UP USER NUMBER 

SAVE IT F8R RAS HANDLER 



HOl 



1**34 
447 
448 
449 
450 
451 
483 
1* 



P» 

455 
456 

459 

460 
461 
46P 
463 

464 
465 
466 
467 
468 
469 
47o 
47 1 
47? 
47^ 
474 
475 
476 



SEP OS, 
u 0O0C7 
4 0O0C8 
4 CO0C9 
4 OOOCA 
C4 
OOOCB 
OOOCC 
OOOCD 
QOOCE 
COQCF 
OOOOq 

00001 

00002 
000D3 
OO0D4 
00005 
OO0D6 
0O0D7 
000D8 
OO0D9 
00009 

oooda 

OOODB 
OOODC 
OOODD 
000&E 
COODF 

000£C 
QO0E1 
00GE2 
Q00E3 
00QE4 

Q00E5 
000E6 
OO0E7 
Q0GE8 
000E9 



175 

22100002 A 
28000000 A 
7&02O00O X 
Qfc.000002 

000C» 

4 »0o3l5 

22200005 

78300005 

0*lOO3lC 

22200012 

72300012 

O^lOOSlC 

222QO005 

72300005 

0*l0O3lC 

0*800331 

22300010 A 

22200000 N 

0*10032C 

22200000 A 
22300001 N 
7&260000 A 
22300000 N 
7S>260000 A 
22300000 N 
3^260000 * 
6*30O0DF 
322Q0010 
32400010 
323QOC1G 
02200030 A 
2*200000 F 
2°20O000 X 
02200020 A 
2&20OO00 F 
22200005 



LIjRi 

LI#Ro 
STB # R n 

LPSD,0 

teaeNjcec equ 

CAL1*« 
TYPE 



CP*V L8G8N/L8G8FF 



CALl*8 

TYPES 

INQUIRE RES 

LljRp 

LI*Ra 

STBiR? 

LI#R3 

STB^Rp 

LIjRs 

STW#R? 

BDRiR3 

L>#R? 

LW#R4 

LN#R3 

LCI 

STMjR? 

STMjRp 

LCI 
STM#R? 

TYPE 



RASJCBPiRi 

SLAVE 

* 

WA ITS 

NEWLINEjTTM#MCWLINE 



INDEX T8 SET Up 
BREAK SENT T© 
THE RAS STATI8N 
GBSLAVe AQAlN, if 



3& 



TIMER 

16 

TIMBUF 





JBJLPP*i 

OjR3 

JBIlPP 

0#R3 
RECSIZE 

REC»RDjR3 
• •1 

BLANKS 
BLANKS 
BLANKS 
3 

JUNAME+JjJIT 
ACCOUNT 
2 

JJjIT*jACCN 
NEWLINE#IDMSG 



PRINT TIME 



CLEAR T8 ZER8 W8RKING STORAGE 
SET LINE INDICATOR IN JIT T8 T»P 

8F PAGE 
DISABLE PAQE EJECT 



SAVE USER NAME 



HOI 



18! 34 ! 


5EP 08* 


♦75 






Cf*«V L8G8N/L 




04 


OOOEA 


72300005 










04 


QOQEB 


Q*i003lC 










04 


OOOEC 


2820O02E 










04 


QOQED 


7830OO2E 










04 


QOOEE 


0*lOO3lC 








477 


04 


OOOEF 


0*100332 




CAL1M 


INMSG 


478 


04 


COOFq 


38300004 


N 


LW#R3 


ARS 


479 


04 


OOOFl 


2^30006F 


A 


SLS#R3 


• 1 7 


480 


0* 


C0QF2 


6 A Bon38D 




BALjSR4 


PARSE 


481 










# 




48? 










* C8NCATINATE ACCOUNT AND NAME 


483 










* 




484 


04 


0O0F3 


28200000 


N 


LI#R? 


UACCeUNT 


485 


()4 


000F4 


28300000 


N 


LI#R3 


KEVBUFF 


486 


04 


000F5 


28400000 


A 


L!#R4 





487 


04 


0O0F6 


28700008 


A 


LliR7 


8 


488 


04 


000F7 


6*B 03DC 




BAL*SR4 


CSNCAT 


489 


04 


0O0F8 


28200000 


N 


LI#R2 


UNME 


490 


04 


OO0F9 


2870O00C 


A 


LI#R7 


1? 


491 


04 


OOOFA 


28500040 


A 


Ll#R5 


Xt40» 


49? 


04 


OOOFB 


20400001 


A 


Al#R4 


1 


493 


04 


OOOFC 


F&580003 


A 


STB4R5 


#R3*R4 


494 


04 


OOOFD 


6 A Boo3DC 




BAL#SR4 


C6NCAT 


495 


04 


OOOFE 


FS40O003 


A 


STB#R4 


#R3 


496 


04 


OOOFF 


0820OC20 


A 


LCI 


? 


497 


04 


OOlOO 


2*Eoo346 




LM#D3 


SECAT 


498 


04 


OOlCl 


46E0O000 


F 


XW#D3 


UlJIT+JACCN 


499 


04 


00102 


46F000OQ 


F 


XW,D4 


JUIT+UACCN + 1 


SCO 


04 


00103 


0*100338 




OPENlT CALIjI 


©PNLOGON 


501 


04 


00104 


0MOO35C 




CAL1#1 


L8QFILE 


50? 


04 


00105 


4 100351 




CALIjI 


CL8SE 


503 


04 


00106 


0820O020 


A 


LCI 


2 


504 


04 


00107 


2»E0OG00 


F 


STMiDS 


Jts/IT*JACCN 


50$ 










* 




506 










« CHECK TF ACCftUNJT IS VALID 


507 










* 




508 


04 


00108 


31E0OC0O 


X 


Cl*#D3 


RECORD 



3/ 



READ RESPONSE 
PICK. UP INPUT BYTE COUNT 
AND FIX IT AS COUNT IN R3 
PARSE THE INPUT USER ID 

for keyed read eF login file 



MAINTAINS BYTE C&UNT 
PUT IN LIMIT FOR ACCOUNT 
DO ACCOUNT 

PUT IN LIMIT FOR NAME 



INSERT BLANK AFT&R ACCT 

ADD NAME 

ADD BYTE COUNT T» KEY 

PROVIDE SPECIAL ACCOUNT 



ATTEMPT TO ©PEN LOGIN FILE 
KEYREAD THE LOGIN FILE 
CLOSE FILE 

RESTORE USERS ACCOUNT 



HOl 



5o«* 

510 
511 
51? 
513 

514 
515 

516 
517 
51ft 

519 

520 

521 
\* 
?* 
3# 
4* 
5# 



7# 



52? 
523 
524 
525 
526 
527 
528 
529 
530 
531 
53? 



4 SEP C8j 
04 00109 
04 OOlCA 
04 OOlCB 



04 OOlOC 
04 OOloD 
04 OOlCE 
04 OOlOP 

04 ooiio 

04 OOlll 
0* 00112 
04 00112 
04 00113 
04 00114 
04 C0115 
04 00116 
04 00117 
04 00118 
04 00119 
04 COllA 
04 OOllB 
04 OOllC 
04 0011D 
04 OOllE 
04 0011? 
04 00120 
04 00121 
04 00122 
04 00123 
04 00123 
04 00124 
04 00125 
04 00126 
04 00127 
04 00127 



»75 

693002FB 
31FonOOl 
693002FB 



33000006 N 

6»3onil2 
02200020 A 
2*200006 N 
1 1200000 X 
6930O24F 

0*800331 
22200000 N 

3^840000 05 
6AB0OOOO X 
28200005 
78300005 

OM0031C 
2220OG3A 
7830O03A 

OMonaic 
2*3oool0 A 
2^200000 N 
Q*l0O32C 
32200000 X 
31200010 
6^300127 
223FFFFA A 

3226001F N 
6»300127 
3S>26n006 N 
6^300123 

38200000 F 



C*-V L8G8N/L8G8FF 

BNE BUMMERi 
CW/04 REC8RD+1 
BNE BUMMER1 



3« 



# PERF0RH 



VALIDTTY TEST 8N SUPPLED 



L8QIT 



L8QIT5 



L9QIT10 



MTW#0 
BEZ 

LCI 

LM,R? 

CD#R? 

BNE 

RES 

CALl*ft 

LIiR2 

STW>SR1 

BAL*SR4 

TYPE 



LliR3 
TYPES 

LW,R? 

CWiR? 

BNE 

LIjR3 

RES 

LW#R? 

BEZ 

STW/R? 

BIR#R3 

RES 

LWjR? 



LR?PN*REC8RD 

L8QIT 

2 

LRjPw^RECSRD 

UPASSWD 
N8ACCESS 



TIMER 

AMJDATE 

MERTABjR? 

TIMEVERT 

NEWUNE#8NATM 



PASSwQRD 

WAS A PASSWBRO SFEOD 

N8 

D8ES PASSWORD MATCH 
N8* ERR8R 

SAVE DATE F8R A«" REC8RD 

TIME 8N T0 TlMBUFi (SECNDS FR8M MiD.) 



16 
TIMBUF 

UFXTACC 

BLANKS 

L8QIT10 

• 6 



RFC&R0*LRlEAccT+6jR3 

L8QIT10 

UEXTACC*6jR3 

L8GIT5 



MIUOC8CLN L8A0 LINE NUMBER 



USE EXT t ACCTG, SPEC, AT L8Q0N TiME 

ANY SPECIFIEP 

YES 

N8j USE EXTt ACCTQ. FR8M 1USERS KEC8) 



Hc-1 18134 SEP 08* 

533 0* OolPS 

534 04 00129 

535 04 OOlPA 

536 04 00l?B 

537 04 Q012C 

538 04 00 I 2D 

539 04 0012E 

540 04 0012F 

541 04 00130 
54? 04 00131 

543 04 00132 

544 04 00133 

545 04 00134 

546 04 00135 

547 04 00136 

548 04 00137 

549 0^ 0013S 

550 04 00139 

551 04 Go ISA 
555? 04 0013B 

553 04 0013C 

554 04 0013D 

555 04 0013E 

556 04 C013F 

557 04 00140 

558 04 00141 

559 04 00142 

560 04 00143 

561 ()4 00144 
56P 0* 00H5 

04 C0146 

565 

566 04 00147 

567 04 00148 

568 (}4 00149 
569 

570 04 0014A 



22200000 
3&20O00O 
3^200000 



'75 

6 A Bonooo 
28300001 
702onoOO 

6*200120 
234004C3 
5&460001 
2*100000 
72220000 
2X200040 
6*300137 
7S>260002 N 
2U30O001 A 
2U100C01 A 
21100008 A 
6910012F 
2220OC68 A 
7S2&OO02 N 
2U3QO001 A 
22100000 
72220000 
2X200040 
6*300143 
7^260002 N 
2U3QO001 A 
2U100001 A 
2110000C A 
6910013B 
2U30O007 A 
7$3or>000 X 

2220O000 N 
0*200000 X 



BALiSfU 

LI#R3 

LC 

BCR#? 

LI#R4 

STHjfU 

LljRt 

CeMPRS LB#R2 
Cl#Rp 

STB,R? 

AI/R3 

Al#Rl 

CIjRi 

BL 

NEXT LI#R? 

STB#Rp 
Al#R3 
Ll#Rl 

NEXL99P LB,R? 
CI,Rj? 
BE 

STBjRS? 
AI#R3 
Al#Rl 
Cl#Rl 
BL 

6UT1 AUR3 

STBjR3 
SEND 



CP»V L8G8N/L8G8FF 
BIN2MEX 

1 

J: JIT 
§*2 

9PMES«MjR3 


JjJIT+JACCN'Rl 
t 1 

NEXT 

9PMES*2#R*5 

1 

1 

a 

C9MPRS 

•i ! 

9PMES*2jR3 

1 



ACC9UNTjRi 

t ! 

»UT1 

9PMES*2jR3 

1 

I 

1? 

NEX189P 

7 

9PMES 

8PMES 



C8NVERT IT T9 HEX 



33 



IS THE RAS USER 
N9 

VEP FLAG HIM 
PUT LINE NUMBER INT9 MESSAGE TEXT 

GET ACCeUNT FrqM JIT 

WAS END 8F NAME REACHED 

YESi G9 GET ACC9UNTj9THEN*ISE 

PUT NAME INT9 9PM£S 

INCREMENT MESSAGE P9INTE 

INCREMENT JIT POINTER 

HAS END 9F ACC9UN? BEEN REACHED 

N8; 

PUT A C8MMA INT8 MESSAGE AFTER NAME 

INCREMENT MESSAGE P9INTER 

L8AD JIT P8INTER 

GET USER NAME 

HAS END 8F ACC8UNT BEEN ^EACHeD 

YESj 

PUT ACC9UNT JNT9 MESSAGE 

INCREMENT MESSAGE P8INTER 

INCREMENT JIT P9INTER 

HAS END SF NAME »EEN REACHED 

N8) 

YESi 

8T8RE BYTE C&UNT INT8 MESSAGE 

SEND MESSAGE T8 &PERAT&R 



22300001 N 



#*CLEAR JiABUF AND JJTELFLGS IN JIT 
LI#R? 
STWjR? jjabuf 
STWjR? juit+jtelflgs 

#«PRt v 1 lege 

L I i R3 BA ( REC&RD+LR I pR I V > *1 



CLEAR JIABUF AND JTELFLGS IN JIT 



HOI 



18 
571 

57P 

573 
574 
575 

576 
577 
578 
579 
580 
581 
583 
583 
584 
585 
586 
587 
588 
589 

590 
59| 

59? 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
6C5 
606 
60? 



834 



SEP 08- 
00146 
OOHC 
OOHD 
0014E 
Q014F 



34 00150 

34 00151 

34 00152 

34 00153 

34 00154 

D* 00155 

!34 00156 

134 C0157 

134 00158 

!34 00159 

!34 0015A 

!34 00158 

04 

:34 ooisc 

!34 0015D 

!34 Q015E 



!34 C015F 
!34 00160 
!34 00161 
134 0016? 
!34 00163 
134 00164 
!34 00165 

34 00166 
34 00167 

04 00168 



75 

72260000 
21200000 
68300150 
22300000 
7b260000 



32200005 N 
31200503 
6*400155 
32300504 
47300000 X 

22300002 A 
4 d 3000Q2 A 
6»30015C 
22100000 N 
78620000 A 
4^600003 A 
7&62O000 A 
0015^ 

2&200016 A 

32300007 
4720O00O X 



52200014 N 
68300162 
5&20O00O X 

22300001 A 
52260014 N 
6*300166 
5^260000 X 

222ifrppF A 
3^200000 F 

22100000 N 



#*FILE 

8UT3 



CP*V LOGON/LOGOFF 
LBiR2 0/R3 
ClsR? 

BE 9UT3 
LI#R3 JBlPRlV 
STBjR? 0#R3 
READ (*ALl»lO * »N8NF"1) 



OSES 
NO • 



4W 



THE BYTE HAVE SOMETHING IN JT 



LW#RP 

CW#R2 

BAZ 

L*/R3 

STS#R3 



RFCORD+LRiFG 
•X'80000000' 
$ + 3 

■X*100GOOOO» 
JjASSIQN 



STORE PRIVELEGE INT8 JlT 

GET THE DESIRED REC9RD 

OPTION BIT NOT SETUE READ ALL) 



##EXECt 9NLY(X8fi),RESTR 



6UT3A 



*#FILE 



LliR3 

AND*R3 

BEZ 

Ll#R1 
LBjR6 
8R#R6 
STB#R6 

F.QU 
SLS#Rp 

LW#R3 

STSjRg 

RETENTION 



2 

R? 

8UT3A 

JBlPRlV 

0#R1 

R3 

0#R1 

$ 

2? 

Yo3 

JjASSlGN 
PERIODS 



SET BIT 3 IN J|ASSIGN(READ NON£) 
PROCESSOR (RP)jSECUR I TY(SE) 
IF SECURITY BIT 



SET 



SET BIT 2 IN JBlPRlV 



STORE XoS AND RP BITS INTO JIT 



###« N0NE.»O<0EFAULT>* NEVER^-FFFF 



LH#R? 
BEZ 

STHjR? 
LliR3 
LH/R2 
BEZ 

STMjRp 
♦♦FILE EXTENSION 
0UT4 LI/R? 

STWjRj? 
♦♦RESOURCF 

LIjRI 



RECORD*LR!DMR 

**2 

J|XP 

1 

REC0RD*LRjDMR,R3 

0UT4 

JJXP,R 3 

BITS 

X»1FFFF' 
JjJIT+JCPPO 

SVJRSIZ 



GET DEF. RETN. PERIOD 

IF ZEROjUSE DEFAULT IN JIT 

STORE INTO JIT 

GET MAXt RETN» PERI8D 
USE DEFAULT 
STORE INTO JJT 



store file ext 

get Resource limit table size 



HOI 



IAS 
6Q8 
609 
610 
611 
61P 
613 
614 

6lS 
616 

617 
618 
619 

620 
621 
62? 
623 

624 

628 

636 
627 
628 
629 
630 

631 
63? 

633 

634 
635 

636 
637 

638 
639 
640 
641 
64? 
643 
644 



34 SEP 08* 

0* 00169 

0* 0016A 

04 00168 

04 0016C 

04 0016D 

04 0016E 

04 0016F 

04 00170 

04 00171 

04 Q0172 

04 00173 

04 00174 

04 00175 

04 00176 

CJ4 00177 
04 

04 00178 

04 00179 

04 0017A 

04 0017B 

04 0017C 

04 0017D 

04 C017E 



♦75 

58220000 X 

6»3oni8o 

28300C0F A 

5126o05£ N 
6^300171 

78660G6A N 

285000FF A 

6*000178 
6*30016C 
78620000 X 
2S5FTFoi A 
^ B 200008 
2120C306 A 
6^300178 
3M600006 A 
00178 

4^200008 
212004C3 A 

6930O17F 
21500000 A 
6»l0O2Cl 
21600000 A 
683002C1 



04 0017^ 
04 0017F 7&62OO00 X 
04 00180 6*100169 



04 00181 
04 00182 
04 00183 
04 00184 



28100000 N 
38220000 X 
2830O00F A 
3126001E N 



6UT5A 
8UT5B 



6UT5C 
8UT5D 

QUT5E 



# 

* 

# 
* 

6UT5IA 

8UT5F 
##SERV 

8UT6A 
8UT6B 



CP»V L838N/L8G8FF 

LNjR? SMjRNMjRi 

BEZ 9UT5F 

LI#«3 LMTSZE 

CH,R? REC8RD*LR! 

BNE 8UT5C 

LB*R6 RECBRD+LRl 

LI#R5 255 

B 8UT5E 

BDR*R3 6UT5B 

LB#R6 JB|MAXjRl 

LI#R5 «255 

ANDjR? XFFFF 

CUR? »C8* 

BNE euTSE 

AW*R6 R6 

ECU $ 

AND#Rg XFFFF 

CliR? »MC f 

BNE 8UT5EA 

CIjR«5 

BLZ JCUSRERR 

CI#R6 

BEZ JCUSRERR 



GET RESOURCE NAME 
IF ZER8 GET NEXT 



41 



UNMR4R3 WAS RES8URCE F8UND IN ?U$ERS RECORD 

N8 
U8MR4R3 GET JUSERS VALUfc 

FLAG FR8M USERtS REC8RD 



N8# USE SYSTEM DEFAULT 

FLAG FR8M SYSTEM DEFAULT TABLE 

IF RES8URCE«»C8»# CHANGE T8 PAGES 



MASK NAME 
SPECIAL CASE NAME 

N8PE 

DID R6 C8ME FR8M USER'S RECORD 

CANN8T ACCEPT USER 

IF FR8M IUSERS REC8RD IS N8N ZERB 

N8PE • CANN8T ALLOW USg;R 8N 



USER DTD N8T NAVE AN MC RESOURCE ASSIGNMENT IN His 
jUSERS RFC8RD - AND Wf NBW 8WN THE DARN THING - SB 
WE'RE G8NNA EXIT THE SYSTEM AFTER TELLING TH F USER 
AND 8PFRAT8R WHY. 



ICE 



FQU 

STBjR6 
BDRiRl 

LXjRl 

LW,R? 

LliR3 

CW,R? 



jb;max*ri 

8UT5A 



STJJRE MAX VALUE * 8R REsBURCE 



get service limit table size 
get service limit name 



SVJLIM 
SLJNAM£jRl 

lmtsze 

REC8RD*LRjUNMLjR3 WAS LIMIT F8UND IN lUSERS REC8RD 



HOI 



18 
645 
646 
647 
648 
649 
650 
651 
65? 
653 

654 
655 
656 
657 
658 
659 
660 
661 
66? 
663 
664 
665 
666 



134 GZP 

04 oo 

04 00 

04 oo 

0* CO 

04 oo 

04 oo 

04 00 

04 oo 

04 oo 

04 00 

04 oo 

04 00 

04 00 

04 oo 

04 00 

(34 00 

04 oo 



667 

DO 15 

669 

670 
671 
67? 
673 



08* 
185 

187 
188 
189 
18A 
18B 
18C 
18D 

18E 
1SF 

190 
191 
192 
193 
194 
195 



04 00196 
04 00197 
04 00198 
04 00199 
04 Q019A 
04 00198 
04 0019C 
04 0019D 
04 QC19E 
04 0019F 
04 OOlAQ 
04 OOlAl 

04 001A2 
04 001A3 

04 001A4 
04 001A5 
04 001A6 



•75 

6*300188 
64300184 
6*000195 
3266003E N 
31200011 
6*300195 
22500000 N 
322203IA 
7240OC0? A 
2S680300 A 
2 s 40O07A A 
2S7FFFFF A 
21100006 A 
6*lQOl94 
32700006 
6/0803E6 
641Q0182 

32200000 F 

3*200012 N 

6*l0OlA3 

28200005 

7S30O005 

Q410O31C 

22200071 

72300071 

0MOO31C 

22200005 

72300005 

QM0031C 

22200000 A 
3S200000 F 

32200000 F 
3*200016 N 
6*l0OlBl 



6UT6C 
QUT6E, 



8UT6F 

##PERM 



BE 
BDRjRS 

B 

Ll*/R6 
CW,R? 
BE 

LI#R5 
LW,R? 
LB,R4 

SCSjR* 
SlSjR4 

L!jR7 
CI#R1 
BGE 

LWjR7 

FXU 

BDRjRi 

RAD SPACF 
LW#R2 
SfciiR? 
BGEZ 
TYPE 



CP«V L8G8N/L8G8FF 
8UT6C 
0UT6B 
8UT6F 

REC8RD*LRlU8MLjR3 
TIMKWD 
8UT6F 
Jj JIT 
L!MINF6#Ri 
R? 

0#R4 
• 6 

1 



Tfe. a 

N8T F8UN0 

GET JUSERS VALUE 

IGN6RE 'TIME' AS 



42 



N/A T9 9N W LIN E WSER 



GET ST8RAQE INFSt 

SHIFT VALUE AND RfS8LUtI^N 

VALUE T8 PR8PER MELD WITHIN JIT W6R 

RES8LUTI8N 

L8AD PR8PER MASK 



LIMINF8A 
**2 
YFFFE 

LIHST8rEjR4 
8UT6A 
RMNG • PERM RAD 
UUIT+PRDCRM 

RFC&RD+LRIARAD 

8UT8 

NFWLINEjFILEXMSGjNEWLINE 



ST8RE IT 

G8 GET NEXT LIMIT NAME 
SPACE LIMIT • ACCU P£RM RaD SPACE 
GET LIMIT FR8M JIT 
GET ACCUt RAO SPACE FR8M JUSERS 



*E* 

8UT8 

*#PERM 



MISSAGFJ 

LI#R? 

STWjR? 

PACK SPACE 
LW 4 RP 
Sfo#Rp 
BGEZ 



ST8RAGE LIMIT EXCEEDED (RAD) 
MINUS ACCUt SET 



FILE 


JUIT+PRDCRM 

RMNG m Perm PACK 

JUIT + PRDPRM 

REC©RD*LRJADIS 

8UT9 



'0 



LIMIT - ACCU* PERM PAQK SPACE 
GET LIMIT FR8M JJt 
GET ACCUt PACK SPACE FRBM :USERS 



HOI 18134 SEP 08* 

674 04 001A7 

04 OOlAS 

04 C01A9 

04 OOlAA 

0* OOUB 

04 OOlAC 

04 OOlAD 

04 OOlAE 

04 OOlAF 

04 OOlBQ 

04 OOlBl 

04 001B2 

04 Q01B3 

04 Q01B4 

04 0OIB5 



67F 
676 
677 
678 
679 
6S0 
681 

68? 
683 
684 
685 
686 
687 
688 

OC9 3J 



69n 

691 
69P 

693 

694 



(3* 001B6 
04 00186 
04 001B7 
04 OOlBS 
04 001B9 
04 OOlBA 
04 001BB 
04 OOlBC 
04 OOlBD 
04 OOlBE 
04 OOlBF 
(34 COlCO 



04 OOlCl 



«75 

222onocs 
723oooG5 
QM0031C 
28200C7A 

72300C7A 

OMonsiC 
28200005 
78300005 
OMonaiC 

28200000 A 
3&200000 F 

287QO001 A 
22400G72 N 
2850O07A N 
6A8003FB 



0*100362 
OMon36F 
2220OO0S 

7«3onoo5 

0*l0O3lC 
2820O04D 
7830O04D 
0M0O31C 
28200005 
78300005 
QMooSlC 



CP*V L8G6N/L&G8FF 
TYPE NFWLINE#PACKXMSGjNE^LINF 



43 



#E* MESSAGFi 

LI#R2 
6UT9 STWjR? 
**L8GICaL DEVtCr 

LI#R7 

LI#R4 

LI#R5 

BALjSR4 
# 

* RELEASE THE LftGlN 
# 

RES 

CALi'l 

TYPE 



FILE STORAGE 



JtJlUpRDPRM 
C8NTR8L FLAGS 

1 

RFC8RD*LRiUNMP 

RrC8RD*LR:UPFLG 
SETLDCF 



DCB AND EXIT 



LIMIT EXCEEDED (PACK) 
MINUS ACCU. SET"0 



SET LBGICAL OEVlCp C8NTR8L FLAGS 



CLEANUP 



RETREQ 





8PNMAIL 
CLSMAIL 
NEWLINE^MAILMSG, 



8PEN tMAlLB8X» T8 SEE IF ThERES 
IT'S THEREt CL8S& tMAlLBOXf 
NEWLINE N8TIFY USER 



MAIL 



*E* 

# 



MESSAGES CHECK Q/C MAILB8X 



♦ PERF8RM AUT8-CALL L8GIC 



3860000C N AUT8CALL Lfc#R6 



LRSCPN*REC6RD 



AUT8.CALL PR8CESS0R 



HOI 



1*1 

6SS 
6™ 6 
697 
69* 
699 
700 
701 
70? 
703 
704 

705 
706 
707 
708 
709 
710 
711 

712 
713 
72? 
723 

1* 
?♦ 

3* 

4* 

R# 

6* 

7* 

8* 

726 
727 
728 

1# 

p# 

3* 
4* 
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SEP 08j 
04 001C2 
04 001C3 
04 00K4 
04 001C5 
04 0OIC6 
04 001C7 
04 001CS 
04 Q01C9 
04 COlCA 
04 001CB 

04 OOlCC 
04 OOlCD 
04 OOlCE 
04 OOlCF 
04 OOlDO 
04 OOlDl 
04 001D2 



04 
04 001D3 

04 C01D4 
04 COlDS 

04 001D6 
04 Q01D7 

04 001D8 
04 001D9 
04 OOlDA 
04 OOlDS 
04 C01DC 



'75 

693001CA 
326ooooa 
32700010 

32800010 
02200020 A 
2 A DonooB 
22500000 N 
6^000103 
3270OC0D N 
3280000E N 
0220O02O A 
2*DooOOA N 
2 A A00008 N 
02200030 A 
2W600000 X 
22000040 A 
7&000000 X 



OOlD* 

22100000 05 

22300000 N 
35320000 X 

32300000 X 
3^320000 X 

22300001 N 
72260000 A 
6*30Ol0D 
22300000 N 
D5260001 A 



BNEZ 
LW,R6 
LW,R7 
LW*SRt 
LCI 
LM,D? 
LliRS 
B 
AUT8EXIT LW,R7 
LW,$R1 

LCI 
LM,D? 

LM,SR3 

LCI 

STMJR6 

LI/RO 
STB#Rq 

#N9W THAT ALL NfC. 



CP-V L8G8N/L8G8FF 
AUT8EXIT 
TFL 

BLANKS 
BLANKS 

2 

SYS 
JS JIT 

writeamr 

lrjCpn+urecsrd 

lrjcpn+2*rec8rd 

2 

LR|CPA*REC8RD 

lr*cpp*rec8Rd 

3 

JJCCBUF 
t t 

JlCCBUF 

INFO. IN L8G REC 



4* 



YES 

CALL TEL PROCESSOR 



SYSTEM 
ACC8UNT 



PICK Up 2ND WO pNQC NAME 
PICK UP 3RD WD PKbC NAME 

PICK UP ACCT 8F ?R8C 
PICK UP PR8C PASSWD 



♦PREPARE AND WRtTF THE ASSIGN-MfRGe 
#L8G8N DATE ALRfADY ST8RE INT8 a.M I 

* 



PRSCESSEPj 

REC8RD 

MAGE AFTER THE TIME CALL 



WRITEAMR 



04 001DU 



# 
WRAM1 



FQU 
Ll#Rl 

LI#R3 

STWjR3 

LW*R3 
STWjR3 

LI#R3 

LB/R2 

BEZ 

LI#R3 

STH # R2 

FQU 



MERTAB 

AMSHED 
AMJSRGjRl 

TIMBUF1 
AMjLSG^Rl 



ST8RE P8INTER T& AVaILaBLe 



ST8RE L8G8N TI M E 



BA(REC8RD+LRlBIL)<M GET RATE STRUCTURE FR&M LBG RfcC 

0jR3 

WRAMl 

HA(AMMIBILL) 

♦R1#R3 



ST8RE RATE STRUCTURE IN LEFT HAL^WD 



* 



Hoi 



18134 REP O&i 


'75 






741 


04 


COlOD 


32200000 


f 




1* 


Q4 


QOlDE 


39220014 


N 




743 










# 


744 


4 


OOlDF 


3*200000 


F 




1* 


04 


OOlEO 


35220015 


N 




2* 










■# 


3* 


04 


OOlEl 


3220OO00 


X 




4* 


04 


Q01E2 


33220000 


X 




5* 










* 


ft* 


04 


Q01E3 


22200000 


A 




7# 


04 


001E4 


3^220000 


X 




8* 


04 


OOlES 


3^220000 


X 




9* 


04 


001E6 


3^220000 


X 




74ft 










# 


1* 


04 


001E7 


283FFFFA 


A 




2* 


04 


001E8 


3^260006 


N 


W 


3* 


04 


001E9 


3^220000 


X 




4* 


04 


OOlEA 


2Q100001 


A 




5* 


04 


QOlEB 


6S30O1E8 






6* 










* 


7# 


04 


OOlEC 


22100000 


N 




8* 


04 


OOlED 


22Fqo30B 






9* 


04 


001EE 


4 100372 






10* 


04 


OOlEF 


04100358 






748 










# 


749 










# 


750 










« 


751 










* 


753 










# 


753 










* 


754 










# 


755 










# 


75ft 


04 


ooiro 


22F0O000 


N 




757 


04 


001^1 


6*300203 






758 


04 


001F2 


22300000 


N 




759 


04 


001F3 


22500000 


N 




760 


04 


001F4 


EAFqoOOF 


A 





WRAH2 



LW,R2 
STWjR? 

LW,R? 
STWjRfc 

LW#RP 
STWjRp 

LI#R2 
STWjR2 

STW#R2 
STW#R? 

LI#R3 

Lfc#R? 

STW#R? 

Al#Rl 

BlRiR3 

Ll#Rl 
LUD4 
CALim 
CALIjI 



CP-V L8G8N/L8G8FF 
JiJlT+PRDCRM 

AMJ8RG*20*R1 

JlJIT+PRDPRM 
AM|8RG*21jR1 

STD8PT M8VE 

AMjSTD&PjRl JlQPl 



Perm Rad space rmng at logon 



PERM PACK SPACE «MNQ AT L8Q8N 
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DEFAULT 
TO A/M 



FOR 
RECORD 




AhjPRMAX,Ri 

AM|PRCUR*R1 

AMlLNKjRl 

• ft 

U£XTACC*ft,R3 

AMJXACC#R1 

1 

WRAM2 

M|E8 

AMWERR 

SETEABN 

AMR 



INITIALIZE TO ZE«9 



SET LINK # 



STORE EXTt ACCTt INF© 



NOW THAT AUTM6ZNi CHECKS ARE 
INITIATION ROUTINE VIA REQt 

R£G»3 CONTAINS THE ADDRESS OF 
OF JJTt THE INSTALLATI9N 
MODIFY THE JlT 
UPON RETURN, TF REG#3 SET T0 

REQiS EXCEPT 3 ARE EXPECTED 



set err/abn addresses 
write a.m record 
madEjExit t8 the installation 

15 

IMAGE 8F L8G8N RECt AND ReG#5 
CAN THEN P8LICE THE J»B AND /OR 

BE AUT8. LOGGED 



0* THE JOB WILL 

Te be intact 



J8B 

THAT 



8FF 



L!jD4 

BE* 

LIjR3 
LI/R5 

BAL#D4 



m:acinit 

EVTHN8K 

RECORD 
Ut JIT 
*D4 



HOl 18J34 SEP 08j '75 

761 04 001F5 21300000 

76? 04 001F6 6$>3oo?03 

763 0* 001^7 222onOOB 

04 001F8 723QO00S 

04 001F9 0M0O3lC 

04 OOlFA 22200083 

04 OOlFB 72300083 

04 OOlFC 0H0O3lC 

04 OOlFD 222QO00S 

04 OOlFE 72300008 

04 OOlFF 0*lOO31C 



1* 

765 
766 

1* 

?* 
768 
769 
770 
771 
77? 
773 
774 
779 
780 
781 
78? 
783 
784 
785 
786 
787 
788 
789 
790 
791 



04 


00200 


04 


00201 


04 


00202 




04 


04 


00203 


04 


00204 


04 


00205 


04 


00206 


04 


00207 




04 


04 


00208 


04 


00209 


04 


0020A 


04 


0020$ 


04 


0020C 


04 


OOHCD 


04 


002CE 


04 


002CF 


04 


00210 


04 


00211 


04 


00212 


04 


00213 


04 


00214 



222QO0A3 
0*200000 X 

6«00O42D 
00203 

02200030 A 
2 A 0QO000 * 

2*000000 F 
0*800376 

6^800496 

0080* 

22000000 A 
7S0QOO0O F 

7^000000 F 
3&00OG06 N 
3S00OG07 N 
22000036 A 
22100000 N 
7S>020000 A 
22100000 N 
2O00OO01 A 
7^020000 A 
2200O05C A 
6AF004AE 



CI#R3 

BNE 

TYPE 



CP"V L8G8N/L8G8FF 



gVTHNSK 

NE«LINE#LBFFMSQ*NEWL!NC 
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*E* 
*E* 
*E* 



MESSaGf! INSTALLATT8N PR8HIBITS Y8UR L8GGfNG 8N 
DESCRIPTI8NJ TM£ USER IS PR8HIBITFD BY THE JNSTALLATI8N 

T8 HAVE ANY FURTHER ACCESS T8 THE SYSTEM, 
SEND 8FFMSG N8TIFY 8PERAT8R USER IS L8GGED 



8FF 





EVTHNOK FGU 
LCI 
LM,Ro 
STM#R 
C AL 1 $ 8 
BCR#S 

KBCBNNECT EQU 

LI#R0 
STBiRC 

STB^Rc 

STWjRo 

STWjRC 

LI#R0 

Ll#Rl 

STBjRo 

LI#Rl 

Al#RO 
STBjRo 
LI'O 
BALj15 



L8Q8FFX1 
$ 

3 
ACC8UNT 

j:jit*juname 

FSI 

recbnnect 
$ 


J$JIT*JRNST 

JlJIT+JABC 

LRJPW+REC8RD 

IR*PN*REC8RD+1 

54 

JBjLPP 

O'Rl 
JBJLC 

1 

0#R1 
t#» 

WRL8QD 



AVelD WRITING ACCOUNTING REC8RD 



PUT USER NAME INTQ JIT 



WE'VE Q8T A HELD PR8GRAM 



INSURE ERR8R CELLS ARE NULL 

CL8BBER THE PASSW8RD T8 PREVENT 
FUTURE PAOE USERS FR8M STEALING IT, 
DEFAULT LINES/PABF 
SET UP JIT F9H T8P 8F PACING BY 



G8 WRITE lL8CaD REC8RDt 



HOI 1*834 SEP 08, «75 

79? 04 0OS15 22QOOOOO 

793 04 00816 0*100316 

794 04 00817 28100000 

795 04 C0218 7^020000 
797 04 00219 Q*900C01 



CF«V L8QSN/L0(3erF 4/ 

Ll^Ro SET UP F6R AUTOCALL 

CALl*l NBMS6 SET MfUC 8T0 TO *ER8 F&R TEL 

L!#Ri JB8LPP 8A(LINES/PA6E) 

STB, Re Q,R1 ST8P FURTHER PaGI HEADINGS (PLATE*, 0) 

CAL1j9 1 INTERPRETIVE EXIT 



HOI 18134 REP 08# f 75 
801 
80? 
803 
804 
805 

806 



PAGE 



CP*V LOGON/LOGOFF 



4$ 



807 
808 
809 
810 
811 
81? 
813 
814 
815 
816 
817 
818 
819 
820 



821 

822 
823 
824 
825 
826 



827 

828 

829 
830 
831 



04 Q021A 
04 0031B 
04 0O21C 
04 0021D 



04 0021E 
04 002lF 
04 0021F 
04 00220 
04 00221 
04 00222 
04 00223 
04 00224 
04 00225 
04 00226 
04 00227 
04 00228 
04 00229 
04 0022A 



04 0022B 
04 0022C 
04 0022D 
C4 0022E 
04 0022F 

04 C0230 

04 0O230 
04 00231 

04 00232 



6ABon234 
2220O01B 
7230O01B 
041OO31C 



6*000230 

4»8onoo9 
2180049D 
69300496 
6AB n234 
32200004 
2$20006F 
0*100340 
6*000256 
6ABqo?34 
2220OO1A 

7230O01A 
0M0O31C 



6«00O230 
6^Bon234 
2220O01E 
7S30O01E 
QH003iC 



22100000 
22FonoOO 
04100372 



# A SYNTAX ERROR HAS BEEN F6UND IN USER INPUTt 



SYNTAXA BAL#SP4 TRIES 
TYPE ERAC 



*E* 
*E* 

SYNTAX 



SYNTAXB 



»E* 

#F# 

SYNTAXC 



MESSA6FJ ACCOUNT 
DESCRIPTION? THE ACCOUNT 



B 

RES 

AND#SR1 

CI*SR1 

BE 

BALjSR4 

LW#R? 

SLSjRp 

CAUIji 

B 

BAL#SR4 

TYPE 



SYNPRINT 



XiFFFF 

RCAlUi 

RECONNECT 

TRIES 

ARS 

■ 17 

ECH8WTE 

ACT1 

TRIES 

ERID 



NO USER NAME PROV IDeD«cHECK TRIE*? 
SEND t ACCOUNT * MESSAGE 



FIELD CONTAINED TOO MANY CHARACTERS. 

GARBLED MS6.T00 M A NY CHARACTERS 

DID WE COME FROM RECONNECT 
YES-GO RIGHT BAC* 
SEE IF TOO MANY TRIeS 

GET THE ACTUAL RfcCORD SUE 
SEND MESSAGE BAC* TO USE* 

Ne USER ACCOUNT PROVIDED 
SEND t ID f MESSAGE 



MESSAGFI id 

DESCRIPTION? EITHER A USER NaMe WAS NOT SPECIFIED OR CONTAINED 

too many characters. 

b synprint 

BAL#SR4 TRIES EXTENDED ACCi lN*e» ERRO* 

TYPE EREXT SEND i EXTENDED ACCOUNTING t 



*E* MESSAGF! EXT* ACNTt LeFT OR RIGHT PARENi missing 

SYNPRINT RES 

LI'Rl MjEO 

LliD4 RESET ERR/ABN ADDRESS 

CALlil SETEA8N 



HOI 



181 
83? 
833 
834 

83F» 

836. 
837 

838 

839 
840 
841 
84? 

843 



844 
84* 
846 
847 
848 
849 
850 
851 
85? 
853 
854 
855 
856 
857 

858 

859 

861 

865 
866 
867 



34 SEP 08* '75 

04 00233 6®00OOD9 



04 00234 38200000 X 

04 00235 2U2Q0Q01 A 

04 00236 3&20OO00 X 

04 00237 21200005 A 

04 00238 E^lOOOOB A 

04 00239 

04 00239 2^200005 

04 0023A 78300005 

04 00238 0*lOO3lC 

O^ 0C23C 282ooc32 

04 0023D 78300032 

04 0023E 0M0O31C 

04 0023F 33000014 05 

04 00240 6»30O?4D 

04 00241 2220O0FF A 

04 00242 4*200000 F 

04 00243 6AB00OOO X 

04 00244 5S40O01E QS 

04 00245 2^200000 N 

04 00246 58300004 N 

04 00247 2530007F A 

04 00248 213Q0020 A 

04 00249 6*200248 

04 0024A 28300020 A 

04 00246 0*200381 

04 0024C 0*l0O37C 

04 0024U 

04 0024D 2860O00O A 

04 0024E 0*900001 A 



CP*V L868N/L8G8FF 
B INQUIRE RETRY L6G*9N 

MAINTAIN AND TEST THE RETRY C8UNT. 



49 



# 

« 
« 
TRIES 



TRIES1 

*E* 



K88CMSG 



LW,R£ 

Al#R2 

STW#R? 

CI*R? 

BL 

RES 

MESSAGE? 

TYPE 



MTWjO 

BEZ 

LI/R2 

ANDjR? 

BALjSR4 

STH#R4 

LNR? 

LH4R3 

SLS#R3 
CI#R3 

BLE 
Ll#R3 
CALIj? 
CALlil 

FQU 
LliR6 

CALl<»9 



ERRTRY 

1 

ERRTRY 

TRYERR 

#SR4 



SBRRYj UNABLE 

NFWUNE/geRRY 



OISPLINE 

N68CMSG 

MjUC*C6CLN 

BIN2HEX 

BADL8G8N+9 

RECORD 

ARS 

m \ 

32 

**2 

32 

BADtGMSG 

MESSAGE 


1 



ACCUMULATED RETRY C8UNT 
UP 



PICK»UP 

KICK IT 

SAVE IT 

AND TEST F8R LIMIT 

N8T REACHED 



T8 L8G Y8U 8N 



ARE WE T» DISPLAY BAD L8G8N T8 8C 
N8PE 

GET LINE # 

M8VE LINE * T8 MESSAGE BUFFER 



TRUNCATE BAD ID Ay 32 CHARS 



CLEAR F8R EXIT C A L 
DITCH USER • HE BLEW 



IT 



♦ cl&bbfR the Password ts prevent future users sf this paGf frsm 

* stealing it. 



HOI 



18154 < 


SEP 08* 


♦75 






CP-V L8G6N/LBG8FF 


868 










« 




86*3 




04 


0024*" 




N6ACCESS FCU 


$ 


870 


04 


0024F 


322onoio 




L^R? 


BLANKS 


871 


0* 


C025C 


3^200006 


N 


STWjRp 


LRlPW*RECftRO 


87* 


04 


C0251 


3^200007 


N 


STW/R? 


LRlPW*RECftRD*l 


879 










♦ 




880 










* PUT BUT INVALTD 


PASSwaRD MESSAGE 


881 










# 




88? 


04 


00252 


6*Boft?34 




BALiSR4 


TRIES 


883 


04 
04 
04 


00253 

00254 
00255 


28200028 

723ooo28 
0*l0O3lC 




TYPE 


PASSW8RD 


884 


04 


00256 






ACTl RES 





885 

4 M 


04 
04 
04 


00256 

00257 
00258 


2220OO4C 
7230H04C 
041QD31C 




TYPE 


QUEST 


1 * 










* REINITIALIZE UPASSWD t» REM6VF RES 


3* 










* BEFORE RETURNING, 


4* 

5* 


04 


00259 


32200010 






BLANKS 


k* 


04 


0025A 


3S30O010 




LW#R3 


BLANKS 


7* 


04 


00258 


l$20OG00 


X 


STDjR? 


UPASSWD 


8* 
9* 










* REINITIALIZE LJEXTACC T0 REMOVE RES 


10* 










♦BEFORE RETURNING 


• 


11* 


04 


0025C 


2220O006 


A 


LI/R? 


6 


IP* 


04 


0025D 


3S35FFFF 


N 


STW^Ra 


UEXTACC«1jR2 


13* 


04 


0025E 


6420OP5D 




BDR*R? 


*-l 


15 <5 W 


04 


0025F 


6«*00O?3o 




B 


SYNPRINT 



5U 



FR8M PREVI6US L&G.6N ATTEMPT 



Hoi 18*34 SEP 08# '75 
887 

889 
890 
891 
892 

893 
894 
895 
896 
897 

cl 5f o 

899 

904 



CP-V L8G8N/L8G8FF 
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90S 



906 
907 
908 
909 



910 
911 
91? 
913 

914 



04 00860 
04 00360 
0* 00261 
04 00262 
04 00363 
04 00264 
04 00265 
04 C0266 
04 00267 
VA 00268 
04 00269 
04 0026A 
04 0026B 
04 0026C 



04 0026D 
04 0026E 
04 0026F 
04 00270 



04 00271 



0*100354 
0*l0O35l 
7220O00A A 
6ABqocOO X 
2220O07E A 
7^200004 A 
3^400003 N 
22200005 

72300005 
0M0O31C 

2220O03C 
7230O03C 
Q*l003lC 



2S20O052 
0*200000 X 
22200000 N 
0*200000 X 



6*000239 



PAGE 



# THE FOLLOWING IS ENTERED AS A RESULT ©F AN 1/8 ERR0R DURING THE READ 

# 8F THE L8GIN FILE. THE CURRENT IMPLEMENTATION NOTICES THE USE* THAT 

# AN UNRECOVERABLE 1/8 ERR8R HAS 8CCURED DURING THE L8G*8N PROCESS A*D 

# HE CANNBT CONTINUE* A LATER IMPLEMENTATION WOULD BE T8 INITIATE 

# M8NIT8R ReCOVfRV PROCeeDUReS, IF AND WHEN AVAILABLE. 



I8ERR8R 



*E* 
*E # 

#E* 



#§# 

#8# 



RES 

CAL1#1 
CALIjI 
LB>R? 



N8RETURN 

CL8SE 

SR3 



SETERRftR Rp 



TYPE 



NEWLJNEjDBWN 



IGNORE ERROR RETURNS 
CLOSE LOGON FILE 
RIGHT JUSTIFY ER*8R CODE 
BUILD ERROR CODE MESSAGE 



TELL USER 



IN R2 



MESSAGFl UNRECOVERABLE I/O ON RAD 

DESCRIPTION! AN UNRECOVERABLE I/O E*ROR WaS ENCOUNTERED 

WHILE READING THE lUSERS FlLEt 
SEND RDLOGONM^FRRCODEM TELL OPERATOR 



MESSA6F* ID UNRECOVERABLE ERROR READING US£RS PILE 

ERROR CODE«XX 
ACTION: RECREATE INDICATED USER«S RECORD wlTH SUpE**. 
MEANING! ERROR IN :USERS FILE RECORD FOR iNPlCATED USgRt 
B TRIES1 AND CLEAN-UP LBG'ON FOR EXIT. 



HOI 



18 * 
915 
916 
917 

918 
919 
920 
921 
92? 
923 
924 
925 
926 
927 
988 
929 

93o 
931 
93? 
933 
934 
93S 
936 

937 
938 

939 
940 
941 
94? 
943 
944 
945 
946 
947 
948 
949 
9Bo 
951 



34 SEP Ogj »75 



CP*V L8G8N/LBG6FF 
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04 00272 
04 00872 
04 00273 
0* 00274 
04 00275 

0^ C0276 
O^ 00277 
04 00278 
04 00279 
0* 0027A 
04 00278 
04 0027C 
04 0027D 
04 0027E 
04 0027F 
04 00280 
04 00281 
04 00282 
04 00283 
04 00284 
0* 00285 
04 00286 
04 C0287 

0* 00288 
04 00289 
04 C028A 



7820OO0A A 

0*100354 

0*100351 

21200003 A 

693Q02A3 

31E00008 

693002FB 
31FQO00C 
693002FB 
38200000 X 

31200000 
6930O2FB 

32200001 N 
3120000E 
6*30O2FB 
3*200002 N 
3120OO0F 
693002FB 
0220O020 A 
2*200000 x 
2°200006 N 
0220OC2O A 
2»E0O00O F 
2 d E00000 N 
2»E0OO0O X 



PAGE 

* THE F6LL8WIN6 C6DF IS ENTERED AS A RESULT BP AN AB N BRMAL C8NDITI8N BN 

* THE READ 8F THE L8GIN F ILE«PRBBA8LY FILE NBT PRESENT. THe USER IS 

* N6TIFIED AND THE LB3*8N PRBCgSS IS TERMINATED^ 

* IF THf USER IS THe MANaGMeNT ACCBUNT AND THE E^RBR IS *FlL& NBT 

* PRESENT'* LBGBN Will AUTBMaTiCALLY CREATE THE FILE WJTH THfc sPEClAl* 

* KEY AND ANY PaSSWBRD given, this dbne* super may th p n be invbked 

* TB CREATE THE BTHeR ACC8UNT ENTRlESt 



« 
BBPS 



RES 

LB,R? SR3 

CAL1M NBRETURN 

CALIjI CL8SE 

CI#R? 3 

BNE BBPSl 

CW#D3 SYS 

BNE BUMMER1 

CW#D4 SYS*1 

BNE BUMMER1 

LWjR? ACCBUNT 

CWjRp SYSUSR 

BNE BUHMER1 

LW*R? ACCBUNT*1 

C*,R2 SYSUSR*1 

BNE BUMMERl 

LW # R? ACCBUNT+2 

CW # R? SYSUSR*2 

BNE BUMMER1 

LCI 2 

LM,R? UPASSWD 

STMjR? LRlPW+RECftRD 

LCI 2 

STM#03 JJJIT*JACCN 

STM#D3 LRJACC^RECBRD 

STMjD3 UACCBUNT 



PUT ERR8R CBDE IN Rp 
IGNBRE ERRBR RETURNS 
CLBSE LBGBN FILE 

MUST BE AN8THER ABN8RMAL 
TEST ACCBUNT (IN D3*D4) TB SEE l¥ 
ITts THE MANAGEMENT ACCBUNT 



ACCBUNT fS 8K# TEST NAME 



ITS THE BBSS-CREATE A LBGIN RECeHD 
FBR HIM WITH PASSWBRD, IF ANY 

ST8R£ ACCBUNT INT8 LBGqN R E CBRD AND 
JIT 



HOI 



18 8 34 < 


;EF 08/ 


*75 




95? 


04 


0O2gB 


0220OO3O 


A 


953 


04 


0O28C 


2 A 00O000 


X 


954 


04 


00280 


2*00000? 


N 


955 


04 


0028E 


2#OOCoCo 


A 


956, 


04 


0088F 


5*000010 


N 


957 


04 


00290 


0*200070 


A 


958 


04 


00291 


2 A 00O338 




959 


04 


00292 


2*000000 


X 


96n 


04 


00293 


2200O008 


A 


961 


04 


00294 


022ooo00 


A 


96? 


04 


00295 


2*100340 




963 


Cu 


00296 


o£2oooeo 


A 


964 


04 


00297 


2*000007 


N 


965 


04 


00298 


OM00000 


X 


966 


04 


00299 


02200060 


A 


967 


04 


0O29A 


2 A 00035C 




968 


04 


00298 


4^000505 




969 


04 


0O29C 


2Q10O020 


A 


970 


04 


00290 


0*200060 


A 


971 


04 


0029E 


2*000000 


X 


97? 


04 


0029F 


28300000 


N 


973 


04 


002AQ 


0*100000 


X 


974 


04 


002A1 


0*100351 




975 


04 


002A2 


6*000112 




976 


04 


002A3 






977 


04 


0O2A3 


21200014 


A 


978 


04 


002A4 


6*300309 




979 


04 


002A5 


2120O02E 


A 


98o 


04 


002A6 


6*300309 




981 


04 


002A7 


2120O04C 


A 


98? 


04 


002A8 


6*300309 




983 


04 


0O2A9 


6 A BooOOO 


X 




04 


002AA 


2220007E 


A 




04 


002A8 


7&200004 


A 




04 


002AC 


3^400003 


N 


984 


04 


002AD 


22200043 






04 


002AE 


72300043 





CP~V 18G8N/L838FF 



88PS1 



LCI 


3 


LM'RO 


ACCOUNT 


STMjRo 


LR{USR*RECQRD 


LIjRq 


XiCgCot 
LRSPRIV+REC8RD 


STH#Ro 


LCI 


7 


LM#R0 


8pNL$68N 


STM#RO 


LIST 


LI#R0 


8 


LCI 


13 


LMjRl 


8PNL8Q8N** 


LCI 


14 


STM#RO 


LIST*7 


CAL1M 


LIST 


LCI 


6 


LM#R0 


L8GFILE 


6R#Ro 


LtX'lOQOOOO' ) 


Al^Rl 


X»2Q« 


LCI 


6 


STMjRo 


LIST 


LI#R3 


KfYBUFF 


CALlM 


LIST 


CALlii 


CLSSE 


B 


L8GIT 


RES 





CI#R? 


Xtl4» 


BE 


BUSY 


CliR? 


X»2E» 


BE 


BUSY 


CliR? 


Xf4C» 


BE 


BUSY 


SETERRfrR 


R? 
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ST9RE USER NAME JNT0 L8G0N REC8RQ 

SET PRTVt LEVEL T© tCo» *8R BATCH AN 

SET UP FPT F8R e^NlNG L0G8N FlLfc, IN 
6UTIN M8DE 

CREATE AS 8UTIN 



D8 THE 8PEN 

AND SET UP A WRlTp 

CHANGE T8 A WRITE 
PUT IN NEW KEY 8PTI8N 



ANO WRITE SUPERVIS8RY REC8RD 
CL8SE LSG8N FILE 
FINISH L8G6ING 8N 

CHECK F8R FILE BUSY 



BUILD PRR8R C8DE MESSAGE 



TYPE 



NBTHEREiNFWLlNE TELL USER 



HCI 



18*34 ? 


SEP 08* 


♦75 








04 


002AF 


OMonaiC 








04 


002B0 


22200005 








04 


C0?81 


78300005 








04 


002B2 


oMonaic 






98R 










*E* 


98* 










♦E* 


987 










#E# 


988 


0* 


00283 


222Q0043 








04 


002B4 


0*200000 


X 






04 


Q02B5 


2*200000 


N 






04 


002B6 


Q*20OG0O 


X 




989 










«e« 


990 










#8* 


991 










#8# 


99? 










#©# 


993 










#B# 


994 










#8* 


99R 


04 


002B7 


6»0OO?39 
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MESSAGFI ABN8RMAL FRR8R 8N L8Q8N FILE 

DESCRIPTI8N1 TR8UBLE WITH JUSERS FILE DETECTED WHILE L8GGINk 

A USER ON, 
SEND N8THERE#ERRC8DEH TELL 8RERAT8R 



MESSAQFl ID ABN9RMAL ERR8R 8N L8G8N FILE 

ERR8R C8DF«XX 
ACTI8N1 RECREATE ACC8UNT WITH SUpERt IF UNSUCCESSFUL, DELETE 

JUSERS FILE AND RECREATE FILE WITH SUPER. 
MEANING? TR8UBLE WITH JUSeRS FILE DETECTED WHILE L8UQING A 

USER 8N« 
B TRIESi DITCH USER 



HOI 18134 q£P 08j '75 
95? ft 
997 
998 
999 

icon 

1001 
100? 
1003 
10C4 
1005 



100* 
1007 
1008 
1009 
1010 

inn 

101? 

1013 

iou 

101R 
1016 
1017 
1018 
1019 

1020 
10?1 

10?? 
1023 
1024 
lOgR 



0* 
04 
04 
04 
04 



04 

C)4 

0* 

04 



C4 
O 
C4 

C4 

C4 



04 
04 
008B8 
002B9 
002BA 
008B8 

ooaec 



04 Q02BD 

04 
04 QOSBe 

04 002BF 



04 002C0 



04 
002C1 

C02C2 
002C3 

002C4 



Q02C5 
002C6 
0O2C7 
002C8 

002C9 



00?B» 

Q02B* 

7810OC0A 
21100049 
6*3oo2BE 
2S20O2EE 
04200000 



04900001 A 
00?Bt 

2220O?E;5 
04200000 X 



0490OO01 A 



0Q2C1 

7U20O000 X 
6«2onl7F 
222oo?CC 
0420OO00 X 



2*200005 
72300005 

0410031C 
2^200206 

7g3or»2D6 



PAGE 
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G6T AN ABNORMAL FR8M THE MlUC DCB 



RESiERR 

res:abn 



#8* 
#8* 
*6# 

N6IRES 



*8* 

#6* 

*&* 



rGU 
FQU 
LB*R1 
CI#«1 

BE 

SEND 

MESSAGp-J 

aCtisn: 

meaning* 

CAL1j9 

ECU 

SEND 



* 

10 

X»49» 

N6JRES 
RASJUSR 



GET U8 ERR8R C8L>E 

IS RES8URCS ERR6R 

CANT GET THHE RESeURCE 

TELL 8PERAT8R C8UN0NT GET RESOURCE 



ID **L8G8N! CANN8T L8G8N RES&URC& REQUESTED 
C8NTACT SYSTEMS ANALYST 8R MaNAGeR* 
CANN8T ACQUIRE SPECIFIED RES8URCEt 
1 AND EXIT 



s 

RASHES 



TELL 8PERAT8R C8UnDt D8 IT 



MESSAGF? ID ##L8G8N! CANN8T L8G8N RES8URCE REQUESTED 



ACTI8NJ 

MEANING? 
CAL1*9 



JCUSRERR FQU 

BCRj? 

SEND 



C8NTACT 
ILLEGAL 
1 



Jt JIT 

8UT5EA 
USRJERR 



SYSTEMS ANALYST 8R MANAGER* 
RES8URCE SPEClFlEDt 
AND EXIT 



BUT IS USER REALLY CONNECTED 
N8 - MY FAULTt#«» 
DEFINITELY WR6NG 



#8* 
#8# 
*8* 



MESSAGF J 
ACTI8N! 

meaning; 

TYPE 



ID *#L8G8N; USER N8T AUTH&RIZED T8 USE MS 
N8NE 

user wasnft auth8rized 
newline#usr;erri tell 



VIA SUPER TO USE 
USER AT STAT18N 



MC R£S8URCt 



HOI 



18*34 J 


?EP 08j 


'75 








04 


002CA 


0Mon31C 






1026 










*E# MESSA6FJ 


1027 










#F# 


1028 


0* 


0O2C8 


6^000433 




6 


1089 


04 


008CC 


S75CRCD3 


A 


USRiERR TEXTC 




04 


002CD 


D6C7D605 


A 






0^ 


C02CE 


7A^040E4 


A 






04 


ooacF 


EgCSD940 


A 






04 


C02DO 


DbD6r340 


A 






w ^ 


Q02D1 


C1E4F3C8 


A 






04 


002D2 


D6D9f9E9 


A 






04 


002D3 


CSC440E3 


A 






04 


C02D4 


D£>4oF4E2 


A 






04 


002D5 


C^40D4C3 


A 




1030 










usrjeRRi textc 


1031 


04 


002D6 


3 y 5CFiC40 


A 






04 


002D7 


4UE8D6E4 


A 






04 


C02D8 


4UC1D9CS 


A 






04 


002D9 


400506E3 


A 






04 


002DA 


4gClT4E3 


A 






04 


002DB 


C«D609C9 


A 






04 


002DC 


E9C5f440 


A 






04 


002DD 


E3D640E4 


A 






04 


002DE 


E£C!$40E3 


A 






04 


002DF 


C»C540D9 


A 






04 


002EO 


CS>D406E3 


A 






04 


C02E1 


CHQC1E2 


A 






04 


C02E2 


E2C9F2E3 


A 






04 


C02E3 


^UE2F3Cl 


A 






04 


002E4. 


E3C9D6DS 


A 




103? 


04 


002E5 


285CRC03 


A 


RAS;RES TEXTC 




04 


002E6 


D&C7D6D5 


A 






04 


002E7 


7A4040C3 


A 






04 


002E8 


CID505D6 


A 






04 


002E9 


E34oflC3 


A 






04 


002EA 


C3D8F4C9 


A 






04 


002EB 


D9C54G09 


A 
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«* Y8U ARE N8T AUTHORIZED T8 USE THE REM8TE ASSIST 

STATI6N 

L8Q8FFX2 AND EXTT SYSTEMt*. 

f#«L8G8N| USER N8T AUTH8RIZED T8 USE MCf 



f#* Y8U ARE N8T AUTHORIZED T8 USE THE R£M0TEf#; 
♦ ASSIST STATI8N? 



t#*L8Q8Nt CANN8T ACCQUIRE RESQURCfc ? 



HOI 18S34 SEP C8j 


'75 


04 OOSEC 


C&Egn*E4 A 


04 002ED 


D2C3CS40 A 


1033 04 Q02EE 


295C«;CD3 A 


04 OOPEF 


D6C706D5 A 


04 002FO 


7 A 4040C3 A 


04 002F1 


CIDS0SD6 A 


04 002F2 


E340D3D6 A 


04 003F3 


C7D6H540 A 


04 002F4 


D^C5rp06 A 


04 002F5 


E4D9f3C5 A 


04 002F6 


4009C5D8 A 


04 002F7 


E<*CSrgE3 A 


04 002F8 


CSC44040 A 



RASjUSR TEXTC 



CP*V L8G9N/L8G8FF 



t#*L9G8Nj CANN8T L8G8N RES8URCE REQUESTED* 
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Hoi 1M3* SEP 08« '75 
1034 

1035 
1036 
1037 
1038 
1039 
1040 
1041 
104? 
1043 
1044 
1045 
104ft 
1047 



10** 
1049 

lOBo 



1051 
10S3? 

1053 

1054 
1055 
1056 
1057 
1059 
1060 



04 003F9 
04 00£P9 
0* 002FA 
04 OOSFB 
0* 002PC 

04 oo2fd 

04 002FE 
04 Q02FF 

04 00300 
04 00301 
04 00302 
04 00303 
04 00304 
04 00305 
04 00306 
04 00307 
04 00308 



04 00309 
0* 00309 
04 0030A 



0*l0O354 
0*100351 
6 a Bqo234 
2H20O02B 
723QO02B 
0*l0O31C 
22300008 
22200000 
G*l0O32C 
2820004B 
7230004B 
0*i0O3lC 
2230O00C 
22200000 
0*10032C 
6*000256 



0*800314 
6*000103 
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PAGE 

# THE F8LL8WING C8DE IS ENTERED AS THE RESULT 8F AN &RR8R DURING THE 

* KEYED R^AD 8F THE L8GIN FILE. THIS HAS THE IMPLICATI8N 8F THE USER 

• SUBMITTING AN INVALID 8R GARBLED ID AND/8R ACC8UNT» IT IS N8T P8SSJBLE 

# T8 DETERMINE WHICH PART IS BAD S8 A MESSAGE REPEATING B8TH InPUT 

♦ fields is Returned T8 the user. 

# 

« 



BUMMER 



BUMMERl 



RES 

CALIjI 

CALlM 

BAL#SR4 

TYPE 



Ll*R3 
TYPES 

TYPE 



LI#R3 
TYPES 

e 



o 

N8RETURN 
CL8SE 
TRIES 
NAMACT 



UACC8UNT 
SLASH 



IGN8RE FRR8R RETURNS 

CL8SE L8G8N FILE 

PERF8RM ERR8R LIMIT CHeC* 

TYPE tACC8UNT/IDf FQLL8WED BY ECH8 



8F USER ACC8UNT AND NAME 



IP 

UNME 

ACU 



♦ C8ME HERE IF I 8G8N FILE IS BUSY 

♦ 

BUSY RES o 

CALl** WAIT1 

B 8PENJT 



WAIT FBR 8NE SECOND AND TRY AGAIN 



Hoi 18134 SEP 08* *75 
1061 
106? 
1063 
1064 
1065 
1066 
1067 

1068 



1069 
1070 
1071 
107? 
1073 
1074 



0^ 
04 
04 
04 
04 
04 
04 



00308 

00308 
003CC 
C030D 
003oE 
003oF 

00310 



04 00311 
04 00312 
04 00313 



282onC05 
72300005 
Q*l003lC 
222ono8D 
723ono8D 
OMon3lC 



22200000 A 
7t>20O00O F 
6*000239 



CP~V L8G6N/L8G8FF 
P AGE 

* THE FSLLSWING C8DE IS ENTERED AS THE RESULT 8F ERRORS 

# 0F THE ASSIGN-MfrRGE ReCQRD. USER IS N8TIFIED THAT THE 

♦ T8 WRITE AN A/M RFC8RD AND IS UNaBLE T8 L8G HIM 8Nt 



DURING 

SYSTEM 



59 

THE WHITE 
IS UNABLE 



# 
AM*ERR 



•E# 
#E* 
*E« 



RES 
TYPE 



NEWIINEjAMERRMSG N8TIFY USER 



MESSAGFI UNABLE T8 WRITE ASSIGN. MERGE REC8RP 
DESCRIPTI8NJ SYSTEM WAS UNABLE T8 WRITE AN AfiSIGN.MERQE 

RFC0RD F8R THIS USERi 
tI#R? INDICATE T8 L8G8FF THAT lT»S AN A/M 



STB#RS> 



JJJIT+UUNAME 
TRIESl 



ERR8R« 
TELL USER 



Y8U CANfT L6Q HIM 8N, fcxiT 



HOI 



18J 

1075 

1076 
1077 

1078 
1079 
1080 

1081. 
108? 
1083 
1084 
1085 
108* 
1087 
1088 

1089 
1090 
1091 
109? 
1093 

1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 

hop 



1103 



34 SEP 08# *75 



CF»V Lea8N/tSG6FF 
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04 00314 
04 00314 
04 00315 



04 0Q316 
04 00317 
04 00318 
04 00319 
04 0031A 
04 0031B 



04 0031C 
04 0031D 
0* 0031E 
04 0031F 

04 00320 
04 00321 
04 003?g 
04 00323 
04 00324 
04 00324 
04 00324 
04 00324 
04 00325 

04 Q0326 
04 00327 

04 00328 
04 00329 
04 0032A 



0** 000001 A 
0^000002 A 



lloooooo 

3*000000 
0000031B 
OUOOOOOl 
OOOOOOOO 
1^000000 



1X000000 
3*000000 
8U000002 
80000003 

oooooooi 

0X00OO0O 
80000000 
00000324 

1* 

1* 

1* 

40 

5^5C40E2 

E3C1F3C9 

D6D540D9 

C3D3C5C1 
E2C5t440 
5L5C4040 



* 
HAITI 



PAGE 

PARAMETER LISTS 



RES 
6EN*8*?4 X»F f Jl 
GfNjg,p4 XfFtjp 



WAIT CAL PlIST • TIME . X SEC 
WAITS 

# 

* PLIST EBP WRITING NULL *SG JQ MiUC Te SET BDt T0 ZER& 

# 

N6MSG GENi8jp4 XUI'jUC |*RITE T8 UC 

DATA Xt34000000t P3jP4jP6 

DATA CARRRTRN BUFFER 

DATA i SIZE 

DATA o BTD T9 ZER© F9R TfLL 

CARRRTRN DATA XUSOOOCOOf CR T8 GET FIRST T9P SF PAGE 
* 

# PLIST F6R 9UTPUT MESSAGES T© USER C6NseLE. 

* 



ERlDMSQ GENj8j?4 XUI'jUC 

DATA Xt3*000000' 

GENMjSI 1**2 

GENii^si i # R3 

DATA % 
MCLL GEN#8jp4 HO 

PZE #0 

DATA $4-1 
MCLLMSG DATAjj MCLLCNT*?1j 21*64 



WRITE JB USER TEkmInAL 

P3jP4*P6 

BUFFER P8INTER IN R2 

SIZE IN R3 

BYTE DISPLACEMENT 



TEXT 



!«« STATI8N RELEASED ##t 



HOI 



1* 
110* 



11 OB 
1106 

1107 

nog 

1109 
1110 
1111 
1113' 
1113 
1114 
11 IF 
1116 
1117 
1118 
1119 
1120 
1121 

118? 
1123 
1124 

1125 
1126 
1127 
1128 
1129 
1130 
1131 
113? 
1 134 
1137 
1138 
1139 
1140 
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04 0032B 1S> 
04 0032B 1 19 
04 00328 2 1» 
04 C03PB 3 lb 
000000l h 



04 0O32C 
04 0032D 
04 0032E 
0» 0032F 
04 00330 



04 00331 



04 00332 

0* 00333 
0* 00334 
04 00335 
04 00336 
04 00337 



04 00338 
04 00339 
04 0033A 
04 C033B 
04 C033C 
04 0033D 



Hoooooo 

34000000 
8000000? 
8U00n003 

ouoooooo 



1400D00O 
€►480219 
0O00OPF9 
0U00O272 
OOOOnOOA 
OQOonoo? 



1U800000 N 



iooonooo N 

74000000 A 
0Q0OO31F 
oyoonooo n 

00000048 A 
00000000 A 



MCLLCNT 

* 
ERIDMSGS 



CP*V L8G8N/L8G8FF 
DATA,1 21 *2l«21«21 



FQU 8a ($ ) .BA ( MCLLMSG > -1 



6l 



PLIST F8R 8UTPUTTIMQ TEXT MESSAGES T8 USER C8NS8LE 



GENj8jP4 

DATA 

GENjIj.31 

GENjl«3l 

DATA 



X 134000000! 

1#R2 

1jR3 





WRITE T8 USER C8NseLE 

P3jP4jP6 

BUFFER ADDRESS IN Rp 

BUFFER SIZE IN R3 

BYTE DISPLACEMENT 



# PLIST T8 

# TIME 
« 

TIMER 
* 

# PLIST 

« 



8QTATN DATE/TIME 
RETURNED 88TH IN EBCDIC 



INMSG 



AND BINARY F8RM 
GEN#gji#g3 X»iO»#liTIMBUF 

F8R READING THE L8G*8N RESP8NSE FR8M THE UC DEVICE 

TERMINAL 



QEN#8jp4 

DATA 

DATA 

DATA 

DATA 

DATA 



X«10»#UC 
X t 74000000* 

SYNTAX 
REC8RD 
7? 





# PLIST FfiR 8PENING L8Q8N FILE 

# 

8PNL8G8N GENj8,p4 

DATA 
DATA 
DATA 
DATA 
DATA 



X? 14»jM!LBG 
XtCF48C219! 

BUMMER 
88PS 

10 
2 



READ FR8M USER 

P2*P3#P4#P6 

ABN8RMAL RETURN 

BUFFER ADDRESS 

MAX SIZE * 72 CHARACTERS 

BYTE DISPLACEMENT 



8PEN «USERS» L8G8N FILE 
P1#2#Sj6#7#8*10*13 F3*8#9j12 
ERR8R RETURN ADDRESS 
ABN8RMAL RETURN ADDRESS 
MAX REC8VERY TRIES 
8RGANIZATI8N KEY&D 



Hni 



18 
1141 

114? 

1143 
1144 

1145 
1146 

1147 
1148 
1150 

115? 

1153 
1154 
1159 
1160 

1161 
116? 

1165 
1164 

116R 
1166 
1167 
1168 
1169 
1170 
11,71 
117? 
1173 
1174 

1175 
1176 

1177 
1178 
1179 



*34 REP C8# 

(H 0033E 

04 0033F 

04 00340 

04 00341 

04 00342 

04 00343 

04 00344 

04 00345 

04 00346 

04 00346 

04 00347 

04 00348 

04 00349 

04 C034A 

04 Q034B 

04 0034C 



04 0034D 

04 0O34E 
04 0034F 

04 00350 



04 00351 
04 00352 
04 C0353 



04 00354 
04 00355 
04 00356 
04 00357 



♦75 

OU000003 A 
QU000001 A 
0U00O002 A 
0U00OC15 A 

OIQQ0202 A 
0*7AF4E2 A 

CSD9F340 A 
0S00OP02 A 



CP*V L8G8N/L8G8FF 



7*E2F8E2 

4P404040 
0$00OP02 
D^EF* 3F 
A*C0BF9F 
O&OlOlOl 
DSD6D5CS 



HOOOOOO N 
3U00O0OO A 
OOOOOOOO N 

8U00O0G2 A 



lbOonooo n 

80000000 A 
QU00OQ02 A 



0^000000 N 
CUOOOCOO A 
0U00O38C 
0000038C 



DATA 


2 


DATA 


1 


DATA 


2 


DATA 


21 



SECAT 



GEN/8j8#8j8 i»Q*2*2 
TEXTC UUSERSf 

QEN#8j8#8i8 Z*Qt2*2 


SYSACCNT 

Xto3Q0020Pt 



DIRECT ACCESS 

IN M&DE 

SAVE 

MAX K£Y LENGTH » PI 

FILE NAME 



ACC8UNT NUMBER 



62 



RES 
TEXT 

DATA 
DATA 

DATA 
TEXT 



PASSW8RD 



XtDFEF8C3Ft#X«AFCoBF9F» 

Xf 05010101 f READ ACCOUNT NUMbFRS 

tNJSNE? 



* PLIST T8 ECM8 AN UNCLeA* MESSAGE BaCK T8 THE SENDE* 



ECWewTE GENi8jP4 XH1»jUC 

DATA Xt30000000f 
DATA RECORD 
GENj1j31 1jR2 

* 

* PLIST F6R CLBSING THE LBGlN FILE. 
« 

CL6SE GENj8jp4 Xti5'*MIL86 

GEN*li3l l#0 

DATA ? 
* 

# PLIST F8R IGN8RING ERR8R RETURNS 
# 

N8RETURN GENj8 j? 4 X»06'jMJL8G 

DATA X'COQOOCOOt 

DATA RETURN 

DATA RETURN 

« 



WRITE T8 USER TEK M !NAL 

P3jP4 

BUFFER ADDRESS 

SIZE IN R2 



CL8SE ^USERS' L8tiBN FILE 

PI 

SAVE 



SETDCB F8R L8G8N# RATE FILES 

P1jP2 

ERR8R RETURN 

ABNBRMAL RETURN 



HOI 



U80 
1181 
118? 
1183 
1184 
118S 
1186 
1187 
1188 
1189 

1190 
1191 
119? 
1193 
1194 

1195 
1196 

1197 
1198 
1199 

1200 
1201 
120? 
1203 
1904 
1205 
120* 

1207 
1208 
1209 
1210 
1211 
121? 
1213 
1214 
1215 



134 SEP 08* '75 



04 00358 
04 00359 
04 0035A 
04 C035B 



04 0035C 
04 0035D 
04 0035E 
04 0035F 

04 00360 
04 00361 



04 00362 
04 00363 
04 00364 
04 00365 
04 00366 
04 00367 
04 00368 
04 00369 
04 Q036A 
04 0036B 
04 0036C 
04 0036D 
04 0036E 



04 0036F 
04 00370 
04 00371 



2^000000 * 
30000000 A 
OOOOOOOO 05 
OU000800 A 



lUOooooo n 

B*000010 A 
OU000260 
OUOOOOOO N 
0U00O1F8 A 
8U00OO03 A 



l^Oonoco 
CS>4onooi 

0U00O384 
0U00O384 
0U00OO02 
OOOOOCOl 
0Q00O002 
01000202 
7 D4ClC9 
D3C2r>6E7 
0^010002 

ouoonooo 
ouoonooo 



lyoonooo n 

80000000 A 
0Q00OO02 A 



AMR 



CP"V L8G8N/L8G8FF 
PLIST F8R WRITING ASSIGN/MERGE TABLE* 



63 



GENiSjp 
GENj8jP 
DATA 
DATA 



4 XI2ESK5EB 
4 X«30»*G 

MERTAB 

4*512 



« 

♦ PLIST F8R READING THE L8GIN FILE 

# 

L6GFILE 



GENj8*?4 XtiO*jM!L8G 

DATA 

DATA 

DATA 

DATA 

GEN#1j3 



1 



XtB8QOQ010' 

I8ERR8R 

RECORD 

4#L8GRECSZ 

1*R3 



PLIST FftR OPeMNiQ 'MAILB&X! 



SpNMAlL 



GENiftj?. 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
TEXTC 

DATA 
DATA 
DATA 



X!l<HjMJX1 

XtC54Q0001 t 

N8MAJL 

N8MAIL 

2 

1 

XIQ1000202' 
IMAILB8XI 

XtQ2QlG0O?< 







* PLIST F8R CL8SING »MAILB8X» 

# 

CLSMAIL GEN/8j?4 x»i5»,m:xi 

GENj1j31 1#0 

DATA ? 



WRITE ASSIGN-MER^e TABLE 

P3jP4 

BUFFER ADDRESS 

BUFFER SUE 



READ L8G8N FILE KEC8RD 

PljP3*P4iP5#F8 

ERR8R RETURN ADDHESS 

BUFFER ADDRESS 

REC8RD SUE 

KEY ADDRESS IN R3 



8PEN MAILB8X FILE 
P1jP2/P6#P8#P10^12 

ERR8R RETURN ADDKESS 

ABN8RMAL RETURN ADDRESS 

KEYED 

IN M8DE 

SAVE 

FILE NAME 



ACCOUNT 



CL9SE 

PI 

SAVE 



MAJLB8X FILE 



HOI 18134 SEP 08* '75 
1216 
1217 

1218 
1219 

1220 
1221 
122? 
1223 
1224 
1225 

.X Cm tm V* 

1227 
1228 

1229 
1230 

1231 
123? 

1233 
1234 

1235 
1236 
1?37 
1238 
1239 



1240 
1241 
124? 

1243 
1244 

1245 
12*6 
1247 
1248 
1249 
1250 
1251 



04 00372 
04 00373 
04 00374 
04 00375 



04 Q0376 



(H 00377 



04 00378 



04 00379 
0^ 0037A 
04 00378 



04 0037C 
04 0037D 
04 0037E 
04 0037F 
04 00380 



04 00381 



1^800000 A 



0*200000 A 
0*000000 A 
00000080 A 



11000000 N 
3*000000 A 
8U00O002 A 
80000003 A 
0000O00Q A 



00000000 A 



CP-V L8G8N/L8G8FF 
# PLIST FBR SETTING ERR/A8N ADDRESSES 



64 



86000001 A 
CUOOOOOO A 
8Q00O00F A 
8U00O00F A 



lLOOOOOQ A 



1^000001 A ASI 



SETEABN GEN*8*?4 X?86'j1 

GEN#?4.10 3#0 

GEN#1jS1 1#D4 

GENm*31 1^04 
# 

* PLIST FBR FINDING HELD PRBGRAM 
# 

FSI GEN#8j?4 X»1C'#0 
« 

# PLIST FBR ASSfiClATlNG HELD PRBGRAM 

GEN#8j?4 XilCSi 



ERR8R 
ABN8RMAL 



# 

# 

# 

MDCPL 

* 

* 

« 

MRCPL 



PLIST FBR DECBUPLIMS TERMINAL 

DATA XtlD8Q000O» MjDECBUpLE 

PLIST F8R REJECTING C8UPLE ATTEMPTS 

GEh#8j4*?0 6*2*0 MJRCPL CAL FPT 

DATA XfO*000000»iXt80f 



PLIST T8 WRITE T8 8C 



# 
# 
# 
MESSAGE GENj8#24 X»U»,MJ8C 

DATA Xt34t##24 

PZ£ *R2 

Pit *R3 

DATA 
* 
* PLIST TB WRITE UNSUCCESSFUL L8G6N MgG T& BC 

BADLGMSG data o 



SUFFER POINTER 
SUE 

btd 



HOI 



18834 SEP 08j 


'75 




CP-V LGGdN/LeQBFF 


\PB? 0* 00382 


8U00OO00 A 


Ptt 


#0 


1PS3 C* 00383 


ouoonois OS 


DATA 


BADUG8N 
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Hoi 1M34 SEP 08j »75 
1254 

125S 
1256 

1257 
1258 

1259 

1260 

1261 
126? 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 



04 00384 
04 Q0384 
04 00385 
04 00386 
04 00387 
04 00388 
04 00389 
04 0038A 
04 0038B 



04 0038C 
04 0038C 



72A0O00A 
21Aono2E 
6»30ftlB8 
2XAooC14 
6»3onlB8 
21A0004C 

6»3oniBa 

6»00OlCl 



K8MAIL 



#• 
* 
* 
RETURN 



PAGE 



CP»V L8£S8N/L8QeFF 



6$ 



C©ME MrRF IF ABNORMAL 8R ERR8R WHILE OPENING »MAI|,B8X! 



RES 

LBjSRa 

CUSR3 

BE 

CI#SR3 

BE 

CNSR3 

BE 

B 





SR3 

X»2E« 

RFTREQ 

Xtl4« 

RFTREQ 

X»4C» 

RFTREQ 

AUTOCALL 



RIGHT JUSTIFY ER*BR C0DE 
IF FILE IS BUSY* GO AHEAD AND TELL 
USER THAT HAIL HAS BE£N DELIVERED 



C8ME NFRF IF ERRQRS ARf T8 Be IQN8RE0 



E»oonooa a 



RES 

B 




*SRl 



RETURN T8 CAL * 1 



Hoi 



lRl 

127? 
IS 73 
1274 
127P5 
1276 
1277 
1278 
1279 
1.280 
1281 
1285 
128* 
1287 
1288 

1290 
1291 

1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 

1303 
1304 
1305 
130* 

1307 
1308 
13C9 

1310 
1311 



34 SEP C8j '75 



04 0038D 
04 003g0 
04 0038E 
04 0038F 
04 00390 
04 00391 
04 00392 
04 00393 
04 00394 
04 00395 
04 00396 
04 00397 
04 00398 
04 00399 
04 0039A 
04 0039B 
04 0039C 
04 0039D 
04 qo39E 
04 0039F 

04 0O3A0 
04 003A1 

04 003A2 
04 003A3 
04 003A4 
04 C03A5 
04 003A6 
04 003A7 



C*«V L8G6N/L8G8FF 
PAGE 

* THE PARSE SUB-RBUTINE WILL PLACE TfcE USER ID 

# HAVING THE THREE PARTS AS SEPARATE ENTITIES. 

# P£RF8RMfD AND ERR^R ACTI8NS ARE TAKEN IN THE 

♦ ERRORS ARE PRFSENTt 

# $N ENTRYj Pq • SUE 8F INPUT MESSAGE IN BYTES 

♦ MESSAGE Bg-GTNS IN L&CATI8N REC8RD 
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INT8 TEMP ST&RAQE/JIT 
SYNTAX CHECKING IS 
EVENT Qf SYNTACTICAL 





# 

PARSE RES 





22C0O000 


A 


Ll#Dl 





22Dooooo 


A 


Ll#D8 





22200000 


A 


LI/R2 





22500000 


N 


LliRS 


JlJIT+JACCN 


22400000 


N 


LI#R4 


UACCeUNT 


6 A A0O383 




BAL#SR^ 


SCAN 


2X700008 


A 


CliR7 


8 


6»20021A 




BG 


SYNTAXA 


22500000 


N 


LI'RS 


ACCOUNT 


22400000 


N 


LI#R4 


UNME 


6AAoo3B3 




BALiSR3 


SCAN 


217Q0000 


A 


CI#R7 





6*300227 




BE 


SYNTAXB 


2170OO0C 


A 


CI#R7 


12 


6^200227 




BG 


SYNTAXB 


2XCQ0000 


A 


CI#Ol 





6830O3A1 




BE 


$+4 


22500000 


A 


LI#R5 





22^00000 


N 


LI*R4 


UEXTACC 


6AAoo3B3 




BAL#SRq 


SCAN 


225QO000 


A 


LI#R5 





22400000 


N 


LI#R4 


UPASSWD 


31D0O00C 


A 


CW#D2 


Dl 


6**3003A6 




BE 


$♦2 


6»00O22C 




D 


SYNTAXC 


22C0O000 


A 


Ll#Dl 





22DQ0000 


A 


LIjD2 






LEFT PAREN FLAG 

RIGHT PARENt FLAG 

R2 MAINTAINS FIELD P8SITI8N 



GET ACC9UNT 



GET NAME 

TEST T8 INSURE 



DATA SUPPLIED 



N8 EXT. ACC. FIELD PRESENT 

DISABLE ST8RINQ IN SCAN 

F8R ST8RING ,DATA DEFED IN ACCTSUM 

GET EXT. ACCt FlfcLD 

DISABLE UNNEC. ST8RING IN SCAN 



LEFT QR 

RESET 

RESET 



right paRen, missing 



HOI 



1AI34 < 


;£P 08# 


*?5 




131? 


04 


003A8 


6AA0D383 




1313 


04 


003A9 


21700008 


A 


1314 


04 


003AA 


6^2on2lF 




1315 


0* 


003AB 


2i7onooo 


A 


1316 


04 


0O3AC 


6»3on3B2 




1317 


04 


003AD 


o^Booooo 


X 


1318 


04 


003AE 


i^Cqoooo 


X 


1319 


04 


003AF 


6ABqo000 


X 


1320 


04 


003Bo 


1^600000 


X 


1321 


04 


003B1 


Q*Boncoo 


X 


132? 


04 


C03B2 






1323 


04 


003B2 


E«oonooB 


A 



PARSElQ 



baljSR3 scan 

CI#R7 8 

BG SYNTAX 

CI,R7 

BE PARSElQ 

PSWjSR* TSTACK 

LD#Di UPASSWD 

BAL#SR4 SCRAM 

STDjR* UPASSWD 

PLW#SR4 TSTACK 

RES 

B *SR4 



GET PASSWORD 



6* 



CHECK 

NBPE 



IF PASSW8RP PRESENT 



SCRAMBLE THE PASSWORD 



HOI 



ia 

1324 
13255: 
132ft 
1327 
1328 
1329 
1330 
1331 
133? 
1333 
1334 
133R 
133* 
1337 
1338 
1339 
134Q 
1341 
1342 

1343 
1344 

1345 
1346 
1347 
1348 
1349 

1350 
1351 
135? 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 



134 SEP 08m »75 



04 00383 
04 C03B3 
04 003B4 
04 00385 
04 00386 
04 003B7 
04 003B8 

04 00389 
04 0038A 
04 003BB 
04 003BC 
04 003BD 
C4 0038E 
0* 003BF 
0* 003C0 
04 003C1 
C4 003C2 
C4 003C3 
C* 003C4 
C4 003C5 
04 003C6 
C4 003C7 
04 oo3C8 
04 003C9 

04 003CA 
04 003CB 
04 003CC 
04 003CD 
04 003CE 
04 003CF 
04 00300 



22800000 A 
22700000 A 
6*300387 
ESOOOOGA A 
72640000 X 
2Q20OG01 A 
21600040 A 
6*3on3BD 
21600005 A 
6930O3C3 
21C0O00O A 
6S»30O3C3 

2J70OC0O A 
6*300385 

2U800001 A 

6«0003B5 

216QOC6B A 

E»30OC0A A 

216OO040 A 

633003C9 

2UC00001 A 

E«0OOOOA A 
21600050 A 

6»3003CD 
2U000001 A 
6*000385 
21800000 A 
6S30O3D2 
2U30OO01 A 
202FFFFF A 



PAGE 
THE SUB,R8UT!NE 
IT PR9VIDES THE 
THE INPUT BUFFER 



CP~V L&G8N/L8G8FF 
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SCAN F8RMS A TW8 W8R0 DATA ELEMENT ?N *R4 AND *R5 
NECESSARY B88KKEEPING T8 MAINTAIN THE PLACE WITHIN 



SCAN 



L88P 



YBLK 



C8MMA 



PCA 



BKCHCK 



RES 

LliSRl 

LI#R7 

BDRjRs 

& 

L8iR6 

Al#R? 

CI*R6 

BE 

CIjRA 

BNE 

ClsOl 

BNE 

CIiR7 

BE2 

Al#SRi 

B 

CI#R6 

BE 

CI#R6 

BNE 

AljDl 

B 
CI#R6 

BNE 

AIjD? 

B 

CI#SRi 

BE 

AIjR3 

Al#R2 









**2 

*SR3 

REC8RD*R2 

1 

f 1 

YBLK 

Xt05» 

C6MMA 


C8MMA 



lsbp 

1 

ieep 

u » 

#SR3 

U f 

PCA 

1 

*SR3 

')' 

8KCHCK 

1 

LeeP 


CHAR8K 

1 

-1 



R7 IS THE REGISTER BYTF DISPLACEMENT 

THIS TEST MAY BE D8NE 

FIRST BECAUSE 

THIS E8M IS CeUNTFD AS A CHARACTER 

BUMP T8 NEXT P8SJTI8N 

IS THIS A BLANK 

&R A TAB*TREATED AS BLANK 

ALL8W BLANKS IN EXPRESSION 
F8R EXTt ACCTt 

IQNdRE LEADING BUNKS 

YES-SET BLANK FLAG 

SUPPRESS TRAILING BLANKS 

H8W ABOUT A C&MMA 

FIELD C8MPLETE-RI.TURN 

LEFT PAREN IS A FIELD TERMINAT8R 

ALS8 INDICATES THE PRESENCE SF E*TAC£ 
IN EXTACCjPARENS AND TRAILING BLNKS k 

RIGHT PARENTHESIS PRESENT 

RIGHT PAREN D8ES NOT NEC* TERMt FlELf 

TEST BLANK FLAG 

JUMP IF 8K 

RESET P8SITI9N T» START »F FIELD 



HC1 



18*34 * 


SEP 08* 


» 75 




1361 


04 


003D1 


EBOOOCOA 


A 


136? 


04 


003D2 


2J7onol8 


A 


1363 


(34 


C03D3 


6»lon?iF 




1364 


04 


003D4 


2l4onooo 


A 


1365 


04 


003D5 


6«30ft3D7 




1366 


04 


003D6 


F&6En004 


A 


1367 


04 


003D7 


2150DOOO 


A 


1368 


04 


003D8 


6*3003DA 




1369 


04 


00309 


Fb6Cnoos 


A 


1370 


04 


003DA 


2^7onooi 


A 


1371 


O^ 


003DB 


68oonaB5 





CMAR&K 





CP»V L9G8N/L8Q8FF 


B 


#SR3 


CI#R7 


24 


BGE 


SYNTAX 


CIiR4 





BE 


*+2 


STB#R6 


*R4#R7 


CI#R5 





BE 


**2 


STB#Ra 


*R5*R7 


Al#R7 


1 


B 


Leap 



7U 



MAX LENQH 8F ANY FIELD 

T98 MANY CHARACTERS IN FIELD. 

AV9I0 UNNECt STBRING 

ST8RE 

AVOID UNNECt STeNfNG 

STBRE 



Hcl 18 J 3<* SEP 08# »75 
137? 
1373 
1374 
137R 
1376 
1377 
1378 
1379 
1380 
1381 
138? 

1383 04 003DC 28500000 * 

1384 04 003DD Fg6An002 A 

1385 04 003DE 2^500001 A 

1386 04 003DF 21600000 A 

1387 04 003E0 E«30000B A 

1388 04 003E1 2U40n00l A 

1389 04 003E2 F&6800C3 A 

1390 04 003E3 315QO007 A 

1391 04 Q03E4 E830O008 A 
139? 04 003E5 6800O3D0 



CF-V L^QBN/LSGBFF 71 

PAGE 
TH£ R8UTINE CfiNCAT IS USED T8 C8NCATINATF NAMe T8 ACCSUNy AND PR8VJDE 
A BYTE C6UNT, THIS C8DE IS USED T8 GENERATE A KEYWORD T8 READ THE 
L86IN FiLEt 

F8R ENTRY, Rg-INPUT FIELD aDDReSS<EK»HT BYTE MAX) 

R3iKEY BUFFER ADDRESS 
F8R EXITj R4«ACCUMULATFD BYTE C8UNT • SH8ULD BE ZER8 »N ENTRY 

RgiUSED F8R BYTE P88ITI8NJNG • R6 C8NTAINS LAST CHAR, 
ENTRY AND RFTURN ARE MADE 8N SR4t 



* 

C8NCAT 

D81T 



l.I#R5 
L8,R6 

AI/R5 

Cl*R6 

BE 

Al#R4 

STBjR6 

CW*R5 

BE 
B 




#R?jR5 

1 


#SR4 

1 
♦R3#R4 

R7 

•SR4 
D8IT 



PICK UP CHARACTER. 
BUMP P8SITI8N, 

D8NE 

C8UNT CHARACTER 

ST8RE IN KEYttUFFlR 

THIS FIELD AT MAXIMUM 

D8NE 

N6t 



HOI 



181 

1393 
1394 
1395 
139ft 
1397 
1398 
1399 

1400 
1401 
140P 
1403 
1404 
140R 
1406 
1407 
1408 
14C9 
1410 
1411 
141P 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1430 

1421 
142? 

1423 
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04 003E6 
04 C03E6 
04 003E7 
04 003E8 
04 003E9 
04 003EA 
04 003E8 
04 Q03EC 
04 003ED 
04 003EE 
04 003EF 



C^64nnos 

FS64n005 
0^640005 
6A840000 



04 Qo3?5 
04 003F6 
04 003F7 

04 Q03F8 
04 003F9 
04 003FA 



Uoonnoo N 

U00O00O N 

llooncoo N 
lloonooo n 



ooooooo* 

04 003Fo QUOOOOOO N 
04 003F1 C00003F5 
04 003F2 40000000 N 
04 003F3 CQ00O3F8 
04 003F4 oooonooo N 

00000000 

000Q0C08 

00000001 

00000003 



35>6An0C0 
3$6AnOOO 

E*oonoo8 

3f6AoOOO - 
3&6Anooo * 
E»oonoo8 A 



PAGE 
*DRIVE TABUS FftR 
*TH£ POSITION 8F 



LIM 

LIMST8RE 



LIMINF8 



LIMINFBA 



W6RD 
HALF 
BYTE 
SPEC 
TSTST 



TSTDI 



C8Mj?j*# 
RES 

STS#Rf, 
STBjRa 

STHjR* 

BALjSRi 

RES 

RES 

LIMjWSRD 

LIM#W8RD 

LIMjWfiRD 

LIMjWBRD 

ECU 

LIMjWBRD 

LlMjSPrC 

LIMjBYTE 

LIMjSPpC 

LlM#WBRD 

FOU 

fgu 
ecu 

FGU 

STWjRa 

STWjR6 

B 

STWjR6 
STWjRfc 

B 



CF-V L9G8N/L8G8FF 

LIMIT DEFAULT ST8RING 
ENTRY WITHIN THE TABLE IS 
34 CF(P)#AF(1)jAF<2> 



#R5#R2 

*R5/R2 

#R5#R2 

0#R2 

1 

1 TIME 

17#MPP0 L8 

17#MPB P6 

17jM0P8 D8 

17jMUP8 ue 

S»LIMINF8 

0,PRDCRM PST8RE 

O^TSTST TST8RE 



7^ 



KEYED DlRfcCTLY tB TABLE SLINA 



0#JBlNFP86L*BA(JiJIT> FPfiSL 



OiTSTDI 

0#PRDPRM 



2 

1 

3 

TMDCRMjRs 

TMPDCPK#RK 

#SR1 

TMDPRMjRB 

tmpdppk#rr 

#SRl 



TDISK 
PDISK 



TEMP 
PEAK 

TEMP 
PEAK 



DISC 
TEMP 

DISC 
TEMP 



SPACE 

RAD SPACE USED 



PACK 
PACK 



SPACE 
SPACE 



USED 



HOI 



la 

1424 
1425 
1426 
1427 
1488 
1429 
1430 
1431 
143? 
1433 
1434 
1435 
1436 
14 37 
1438 
1439 
3.4 40 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
145? 
1453 

X "T w3 *r 

1455 
1456 

1457 
1458 
1459 
1460 
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CP-V L8G8N/L8G8FF 



04 003F9 
04 003FB 

04 003FC 
04 003FD 

04 003FE 
04 003FF 
04 00*00 

04 00*01 
04 00*02 

04 00*03 
04 00*0* 
04 00*05 

04 00406 
04 00*07 
04 00*08 
04 00*09 

04 C040A 
04 00*0B 

04 oo*oc 

04 00*OD 

04 oo*oe 



2210O000 N 
7570O00B A 
58220000 * 
2230O00F A 
0*260004 A 
6*300403 
6*3003FF 
6*00O40F 

F2660005 A 
20700008 A 
2$6EnC00 A 

3 A 30OO01 A 
2270*000 A 
2^760000 A 
2S66O00O A 

22200000 N 

52340000 A 
* 7 600003 A 
55340000 A 
7270OQ0B A 



PAGE 

# THE SETLDCF RfiUT 

# BY SETTING PfRTI 

# SPECIFIED IN THE 

# ENTER 

# INPUT 
# 
* 
« 



73 



SETLPCF 

SETLDCF2 
SETL0CF4 

# 
SETUDCF6 



FNTER 



RES 

Ll#Rl 

STB,R? 
LHiR? 

LI#R3 

CHjR? 

BE 

BPRjRg 

B 

LB4R6 
AliR7 

SLSjR* 

LCW#R 3 

Ll'R7 

SLS#R7 

SLSjR6 

LI#R2 
LH#R3 
STS*R6 
STHjRj 

LBiR7 



INC AUTH8RIZES ACCESS T8 L&GICAL DEVICE PERIPHERALS 
NENT BITS IN JIT (JHJLOCF) F8R TH8SE PERIPHERALS 

jUSERS FILE. 
8aL*SR4 SETLOCF 
R7?0 - AUTHQRIZE 

R7fl * AUTH8RIZE 
R7«2 • AUTHORIZE 
R4i * ADDRESS 8F 
R5» • ADDRESS 8F 
BAL#SR4 SETLDCF 
REGtUSED R1*R2jR3#R6 



DEVICES F8R BATCH« 

DEVICES F6R 8N«Ll N F» 
DEVICES F9R GHSSTt 
IUNMP TABLE IN tUSERS FiLE. 
JUPFLGS TABLE IN *USERS FILe. 





SVjFTYH 
SR4 
SHlSYMTjRi 

LMTSZe 
♦R4#R3 
SFTLDCF6 

SFTLDCF4 
SETLDCF8 

#R5#R3 

8 

0#R7 

Ri 

XtSOOOt 
0jR3 
0#R3 

JHJLDCF 

R3 

0#R2 

SR4 



GET L66ICAL DEVICE LIMIT TABLE SUE* 

SAVE FLAG TEMP8RARILY 

GET PERIPHERAL DEVICE NAME 

WAS DEVICE NAME IN JUSFRS FILE 
YES, SET FLAG 

N8j GET NEXT DEVICE NAME 

GET PERIPHERAL FLAF FR8M tUSERS 

SHIFT SPECf FLAG(BATCHj8/L#GH8ST? TB 

BIT 16 

SHIFT MASK F0R PERIPHERAL FLAG 



SHIFT PERIPHERAL FLAG 

GET LOGICAL PEVItE C8NTR&L FLAGS 

REST8RE FLAG 



Hfil 1813ft REP 08, '75 CP»V l6<iftN/l8GeFF 7* 

1461 0* 0O*CF 6Hon3FD SETLDCF8 BDRjRi SETLDCF2 GET NEXT DEVICE NAME 

146P 04 OOMQ 



'75 




cp«v ie<iftN/i8GeFF 


6Hon3FD 


SETLDCF8 BDR,Ri 


SETLDCF2 GET 


ESoononB A 


B 


#SR4 



MOl 18134 REP 08j »75 

1.463 
1464 
14 65 
1466 
1467 
1468 
1469 
1470 



1471 
147? 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
148? 
1483 
1484 
1485 
1487 
1488 
1489 
1490 
1491 
549? 
1493 



04 00411 
04 00412 
04 00413 
04 00414 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

04 
04 
04 
04 
04 
04 
04 
04 
04 



00415 
Q0M5 
00M6 
00417 
00418 
00419 
0041A 
C0*lB 
0041C 
C041D 
0041E 
QOMF 
00420 
00421 

C0422 
04 

00423 
00424 
00*25 
00426 
00427 
00428 
00429 
0042A 
00428 



0tD3C9DS A 
C&40F3C9 A 
D4C5f!440 A 
D6E4F340 A 



72*00000 F 

PlAonooo A 

6*300423 
21AQ0040 A 
6*300423 
3§8Q0004 N 
22A0O000 A 
7&A0O0O0 F 
3&A0O00G X 
0*100479 
4 10048C 
0*100494 

6^B n000 X 
68Q0D42D 

00423 

70200000 X 
6880042D 
21AQ0000 A 
6^300420 

2£2onoos 
72300005 

OMonsic 

2^200411 
72300411 



CP«V L8G8N/L8G8FF jb 

PAGE 

« * 

* FNDJ6B/19G8FF PR8CFSS8R # 

# « 

# 

LT8 TEXTC tLINE TlMFD BUT! 



# 
L8G8FF 



RATEIN 
L8G8FFX 



RES 

L8#SR3 

CI#SR3 

BE 

CI/SR3 

BE 

STW#SR1 

LI#SR3 

STBjSRs 

STW,SR3 

CALl*l 

CAL1M 

CALl^l 

BALjSRa 

B 

FQU 

LC 

BCR«8 

CliSR3 

BE 
TYPE 



J?JIT*gUNAME 


L8G8FFX 

X»40» 

L8G8FFX 

T!MBUF*4 



JlJIT*jRNST 

Rateflas 

©RATE 

RRATE 

CRATE 

ACCNT8UM 

L8G8FFX1 

* 

JIJJT 

L8GBFFX1 



L8G8FFX1 

NEWLINE#LT8 



IF AREA IN JIT RESERVED F8R THE 

USER NAME HAS BLANKS BR ZER»S 
IN IT# THE UStR WAS IN THE 



(sr1)«yy#dd fr8m time call 

err/abn returned in sr3 if jjrnst»o 
set Rate file inptcatsr t8 ?jn» 

8PEN RATE FILE 

READ REC8RD INT8 »REC8RD' 

CL8SE RATE FILE 

C8MPUTE, DISPLAY/ L8G ACCOUNTING INFi 



HERE WITH N6 UNAME 
AV8ID IF N8T 8N»LINE 

A/M WRITE ERR8R 

HE PR8BABLY TIMED 8UT 



HOI 



18834 SEP 08j 


»75 








CP«V L8G8N 




04 


004gC 


0*lOO3lC 










1494 




04 


0042* 




L8G8FFX1 


FGU 


i 


1495 


04 


00*80 


0*800378 






CALliS 


MDCPL 


1496 


04 


00*2E 


0*800379 






CALIjS 


MRCPL 


1497 


04 


0042F 


2^0000*0 


A 




LlsQ 


t i 


14 98 


04 


00*30 


68F004AE 






BaLj 15 


WRLBGD 


1499 


04 


00*31 


7P20O000 


X 




LC 


JJJIT 


1500 


04 


00*32 


68200430 






BCRj? 


L8G8FFX3 


1501 




04 


00433 




L8Q8FFX2 


FQU 


* 


150P 


04 


00*33 


22600000 


N 




LIiR6 


RASlCBP 


1503 


04 


00*34 


6^300430 






BEZ 


LBG8FFX3 


1504 


04 


00*35 


2S6oooCo 


A 




LI#R6 


x»co< 


1505 


Qfc 


00*36 


7$600000 


X 




STBiR6 


JBiPRlV 


15 06 


04 


00*37 


0*200321 






CALl#2 


MCLL 


1507 










• 6« 


MESSAGFI 


## STATI8N 


1508 










♦e# 


ACTI9NI 


N&NE 


1509 










#8* 


MEANING! 


INF8RMATI8N 


1510 


04 


00*38 


0*60000* 






C AL 1 j 6 


MASTER 


1511 


04 


00*39 


22600000 


A 




LI#R6 





151? 


04 


00*3A 


75600000 


X 




8TB j R6 


RAS5CBP 


1513 


0* 


00*3B 


2210OG01 


A 




LI#Rl 


1 


1514 


04 


00*3C 


5S>620000 


X 




STHjR* 


RASSCBP#R1 


1515 




C* 


0043U 




L8G8FFX3 


EQU 


* 


1516 


04 


00*3D 


33600506 






LW#R6 


iX»00?0C0OO 


1517 


04 


00*3E 


31600000 


X 




CW#R6 


M|LL 


1518 


04 


00*3F 


6*400*4* 






BAZ 


LBQ8FFX6 


1519 


04 


00**0 


22100000 


N 




Ll/Rl 


MjLL 


1520 


04 


00**1 


22F00444 






LI#0* 


L6C38FFX6 


1521 


04 


00**2 


0*100372 






CALIjI 


SETEABN 


152? 


04 


00**3 


0*100**7 






CALlil 


FPTCLSLL 


1523 




04 


004** 




L8G8FFX6 


FQU 


* 


1584 


(34 


00444 


0*900006 


A 




CAUl*9 


6 


1525 


04 


00**5 


22600000 


A 




U*R6 





1526 


04 


00**6 


0*9oonoi 


A 




CALl*9 


1 


1529 












FIN 




INVALID DIRECTIVE 










1530 










# 







76 



DEC6UPLE CAL AND REJECT CAL 

T8 MAKE SURE THINGS ARE CLEANED MP 

G8 WRITE 5L8GO RkCBRD 

F8R THIS USE*» 

JUST L8G 8FF MC USER 

N8PE 

IT REALLY IS A 5*0 SYSTEM ISNT IT 
N8PE - JUMP 8VER THEREt»« 
JUMP UP 

PRIVILEGE LEVEL 

INF8RM USER STATI8N IS RELEASED 

Released *♦ 



G8 BRIEFLY MASTER M8DE 
ZAP RAS USER NUMbER 
ZAP BREAK SENT 



is mill open 

N8 



SET ERR8R/ABN8RMAL ADDRESSES 
CL8SE MJLL 

CL8SE C88PERATIV& FILES 
C8MMAND PR8CESS8R FLAG RETURNED 
EXIT 



M01 



181 

1531 
153? 
1533 
1534 

1535 
1536 
1537 

1538 
1539 
1540 
1541 

154? 
1543 
1544 
1545 
1546 
1547 
1548 

1549 



1550 



1551 
155? 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 



34 SEP 08* 
(34 00*47 
04 QO**S 
0* 00*49 



04 0044A 
04 00**A 
04 00**B 
04 CO**C 
04 00**& 
04 00**E 
04 00**F 
04 00*50 
04 00*51 
04 00*52 
0* 00*53 
0* 00*54 
04 00*55 
0* 00*56 
0* 00*57 
04 00*58 
0* 00*59 
0* 00*5A 
0* 00*58 
0* 00*5C 
04 00*50 



04 00*5E 
0* 00*5E 
04 00*5F 



'75 

lSoooooo x 

sooooooo a 

oooooooa a 



78AOOO0A A 
21A00003 A 
6«30O45E 
2iAoool4 A 
6*300463 
21AQO02E A 
6*300463 
21AQ004C A 

6*3oo463 
21Aooo75 A 
6*300465 
3220O00A A 
6ABqoG00 X 
2cJ2oot7E A 
75200004 A 

3^*00003 N 
222QO06A 
0*200000 X 
22200000 N 
0*200000 X 



C?*V L8G8N/L8G&FF 
FPTCLSLL GENj8j7M7 X»iB»*OjMjLL 
DATA Xt80000000» 
DATA 9 



7/ 



RATEERR 



0*100354 
0*100494 



#8* 
* 

N8RATE 



SAVE 

C8ME NrRE BN 8PEN 6R READ ERR8R 8F RATE FILE 



RES 

LBjSR3 
CNSR3 
BE 
CI*SR3 

BE 

CI#SR3 
BE 
CI*SR3 

BE 

cijSRa 

BE 
SETERR8R 





SR3 

3 

N8RATF 

X?14' 

ratebusy 

Xt2E» 

RATEBUSY 

X?4C» 

RATEBUSY 

Xt75f 

FDERR8R1 

SR3 



RIGHT JUSTIFY ERR8R G8DE 

BRANCH T8 ?N8RATE» IF FILE DOESN'T 

EXIST 
BRANCH T8 tRATEBUSY* IF THE FILE 

IS BUSY 



THIS IS T8 SEE I* THE ERR8R WAS QUE 

T8 A BAD FILE DIRECTLY 
BUILD FRRftR C8DE MESSAGE 



SEND 



8PNRFMSGjFRRC8DEM 



MESSAGfJ ID UNA8LF T8 8PEN RATE FILE 

ERR8R C8DF»XX 
ACTI8NJ DELETE JRATE FILE AND RECREATE WITH RATES PR0cESS8K f 
MEANING! THE JRATE FILE HAS AN ERRSRf 

C8ME HFRF IF C8ULDNIT GET A RATE FILE 



RES 

CAL1,1 

CALIjI 





NBRETURN 

CRATE 



IGN8RE ERR8R RETURNS F8R CL8SE 
CL8SE RATE FILE 



HOI 



las 

1561 

156? 

1563 
1564 
1565 
1566 
1567 
1569 
1570 
1571 
157? 
1573 
1574 
1575 



1576 



1577 

157a 

1579 
1580 
1581 
158P 
1583 
1584 
1585 
1586 
1587 
1588 
1589 



.14 SEP 08* 
04 00*6Q 
04 00*61 
04 00*62 



04 00*63 
04 00*63 
04 00464 



04 00465 
04 00*65 
04 00*66 
04 00*67 
04 00*68 
04 00*69 
0* 00*6A 
04 00*68 
04 00*6C 
04 00*6D 



'75 

22AFFFFF A 
3&Aonooo X 
6*000421 



0*800314 
6*000415 



04 0046F 
04 00*6F 
04 00*70 
04 00*71 
04 00*7? 



3S20O00A A 
6A80O000 X 
2220007E A 
7$20O004 A 
3S40O003 N 
2220O05C 
0*200000 X 
22200000 N 
0*200000 X 



04 00*6E 6*00045E 



7220OO0A A 
6 a BqoOOO X 
2S20007E A 
79200004 A 



CP*V L8G8N/LBG8FF 7* 

LI#SR3 •! INDICATE T8 DISPLAY NB RATE FILE 

STWjSRs RATEFLAG WAS READ 

B RATEIN C8NTINUE PRBCESSlNG 

C8ME mfRF IF THE FILE WAS BUSY 



* 
* 
# 
RATE8USY RES 

CALl*8 WAIT! 

B L8G8FF 
# 

# C8M£ HfRf IF THERE IS AN FRR8R IN THE JSyS A C c8UNT PIRECT9RY 
# 
FDERR9R1 RES 

SETERRRR SR3 



WAIT F8R 1 SEC8NU AND THEN TRY 
AGAIN 



SEND 



ARFMSGjERRC8DFM TELL 8PFRAT8R 



MESSA6FS ID UNABLE T8 ACCESS RATE FILE 

ERR8R CQDEfXX 
ACTI8NJ ACTION VARIES WITH &WQR T^E (SEE BATCH PK8CESSINU 

REFERENCE MANUAL F8R ERR8R C8DES,) 
MEANING? L8G8N IS UNABLE T8 ACCESS THE RATE FILE DUfc T8 A BAD 

ACC8UNT DIRECT8RY. 
B N8RATE PR8CEED AS IF N8 RATE FILE 



#8* 
#8* 
#8* 

*8* 
#8* 
#8# 

# 

* 

RDRATERR RES 

LB,R? SR3 
SETERRRR Rp 



C8ME HFRE IF THERE IS AN £RR8R RFADJNG RATE FILE 

BUILD ERRGR C8DE MESSAGE 



Hnl 1*13* SEP 08# 
0* 00*73 
0* 



I59fl 



1591 
159? 
1593 
159* 
1595 



0^ 
O^ 

04 



00*7* 
00*75 
00*76 
00*77 



'75 

3^*00003 N 

32300063 

0*200000 X 

22200000 N 
0*200000 X 



0* 00*78 6»00O*5E 



♦ 8* 

#e* 

• 6« 

#8* 



SEND 



MESSaGfI 
ACTI8NI 

meaning; 



C*»-V L8G8N/L8G8FF 

RRFMSG4ERRC8DFM 



79 



ID UNABLE T8 READ FILE 

ERR8R C8DFPXX 

DELETE JRATE FILE AND RECREATE WITH RATES PR0CESS8R. 

ERR8R IN READING :RATE FlLEt 

N8RATF PR8CECD AS IF N8 RATE FUE 



HOI 



in J 


34 < 


SEP 08j 


»75 










C*"V LSGGN/LdGB 


1596 












PAGE 






1597 










# 








1598 










# 


RATE 


ftlf parameter lists 


1599 










# 








1600 


04 


00479 






8RATE 


RES 







1601 


04 


00479 


14000000 


N 




GENift 


<?4 


XH4»#HJRATE 


16Q? 


04 


00^7A 


P*40OC09 


A 




DATA 




XtFF400009t 


1603 


04 


0047B 


0U00O44A 






DATA 




RATEERR 


1604 


04 


0047C 


0W00O44A 






DATA 




RATEERR 


1605 


04 


00470 


oooooooo 


N 




DATA 




RFC6RD 


1606 


04 


0047E 


00000120 


A 




DATA 




288 


1607 


04 


0047F 


OOOOOCOA 


A 




DATA 




10 


1608 


04 


00480 


00000001 


A 




DATA 




1 


1609 


04 


00481 


00000001 


A 




DATA 




1 


1610 


04 


00482 


oooooooi 


A 




DATA 




1 


1611 


04 


00483 


00000002 


A 




DATA 




2 


161? 


04 


00484 


O^OOOOOO 


A 




DATA 




XI07000000? 


1613 


04 


00485 


0*000000 


A 




DATA 




X» 08000000 l 


1614 


04 


00486 


01000?02 


A 




DATA 




X»0100020? f 


1615 


04 

04 


00487 
00488 


0^7AD9Cl 
E3C54040 


A 
A 




TEXTC 




•IRATE! 


1616 


04 


00489 


0^010202 


A 




DATA 




Xt0201020?» 


1618 


04 
04 


0C48A 
0048B 


7 A E2F8E2 
40404040 


A 
A 




TEXT 




SYSACCNT 


162? 










* 








1623 










# 


READ ! 


rats: file 


1624 










# 








1625 


04 


0048C 






RRATE 


RES 







1626 


04 


0048C 


10000000 


N 




GENjg 


4?4 


XtlO»#K!RATE 


1627 


04 


0048C 


cooooooo 


A 




DATA 




Xt COOOOOOO t 


1628 


04 


0048E 


0000046F 






DATA 




RDRATERR 


1 629 


04 


0048F 


0000046F 






DATA 




RDRATERR 


1630 










# 








1631 










« 


fpt ts set eRR/aBn for im 


1632 










# 








1633 


04 


00490 


O^ooonoo 


N 


SETRES 


GEN#8 


#?4 


6jM?Uc 


1634 


04 


00*91 


Cooooooo 


A 




GEN/g 


j?4 


X»Co»#0 



80 



8PEN RATE FILE 

P1*P2jP3#P4jP5jP6jP7#P*jP10*F9#F12 
gRRSR RETURN ADDRESS 
ABNORMAL RETURN ADDRESS 

BUFFER AREA 

MAX SIZE EQUALS 7? W&RDS 

RECOVERY TRIES 

C6NSECUTIVE 

SEQUENTIAL ACCESS 

INPUT M8DE 

SAVE 

NULLIFY SN THAT MIGHT BE CARRIED 

BVER FRQM PREV, ACT. THQH MjE8 DCB 

FILE NAME 



ACCQUNT 



READ RATE FILE 

Pl#P2 

ERROR RETURN ADD«FSS 

ABN8RMAL RETURN ADDRESS 

IMPLICIT 6PEN &F MlUC 



HOI 



18*34 REP 08# «75 



1635 


04 


00*92 


0U00OPB8 








04 


00*93 


Q0Q0O2B8 






1636 










# 


1637 










« 


1638 










# 


1639 


04 


00494 






CRATE 


1640 


04 


00494 


lSoonnoo 


N 




1641 


04 


00*95 


oooonooo 


A 





DATA 



CP*V L8G6N/LeCi8FF 
RESSERR#RFSJABN 



81 



CL65F RATE FILE 

RES 

GENj8jP4 XtlSf^MtRATE 

DATA 



CLOSE RATE FILE 



Hoi 



1813* < 


?£P 08j 


»75 








CP<*V L8G8N/L8G8F 


F 


164? 












PAGE 






1643 










#*##*•#*•••*«*•***«**•#•••#*#««*#•#•##**«#«#**#*# 


1644 










# REC^NNpCT T8 


SAVrD PR8QRAM IF USER S8 WILIS * 


1*45 










###«*####««*#«*#«*««*##*«««*««**#«**##»*##«*«*#«* 


1646 




04 


00496 




RECONNECT EQU 


« 




1647 


04 

04 
04 
04 

04 

04 


00496 

00^97 
00498 
00499 
0049A 
0049B 


22200005 
72300005 
0410031C 
22200096 
72300096 
041GO31C 






TYPE 


NFWLlNEjHFLDMSG 




1648 


04 


0049C 


0^100332 




RCALl 


CALIjI 


INMSG 


READ RESPONSE 


1649 


04 


0049D 


7200OC0O 


X 




LB* Rq 


RECORD 


SEE *HAT HE TYPEP 


16!50 


0"* 


0049E 


21000CE8 


A 




CI#Rq 


C?Y» 


DID IT START WITH ?Y» 


1651 


04 


0049F 


6 8 3004A3 






BE 


MASI 


YES 


165? 


04 


004A0 


2100O0D5 


A 




c I j Ro 


ClN« 


DID IT START WITH in* 


1653 


04 


004A1 


6»300?08 






BE 


N8C8NNECT 


SURE DID 


1654 


04 


004A3 


6^000496 






B 


RECONNECT 


LET HIM TRY 8NCE M8RE 


1655 


04 


004A3 


0480O377 




MASI 


CAL1j« 


ASI 


ASS8CIATE HELD PROGRAM 


1656 


04 


004A4 


6**8004AC 






BCRj8 


REC0NN6UT 


AND LEAVE 


1657 


04 

04 
04 
04 
04 
04 


004A5 
004A6 
004A7 
004A8 
004A9 
004AA 


22200005 
72300005 
0410O31C 
22200090 
7230O09D 
0410O31C 






TYPE 


NEWLINE#N8IMGMSG 


SOMETHING WENT W«8NG 


1658 


04 


004A8 


6«00O?08 






B 


N8C8NNECT 


RESUME N8RMAL L0G8N 


1659 




04 


004A^ 




REC8NN6UT EQU 


* 




1660 


04 


C04AC 


22600000 


A 




LI#6 





F8R INTE*P« EXIT • DELUSER 


1661 


04 


004AD 


0490O001 


A 




CAHj9 


1 


EXIT 



82 



HOI 



18*3 
166? 

1663 
1664 

1665 
1666 
1667 

1668 

1669 

1670 

1671 

167? 

1673 

1674 

1675 

1676 

1679 

1680 

1681 
1* 
?* 

1686 

1687 

1688 

1689 

1690 
1* 
?* 
3# 

1691 

169? 

1693 

1694 

1695 

1696 
1# 
?♦ 

1697 



4 SEP 08# ' 75 



cp-v leGesi/LeGeFF 



PAGE 



Qftf 



04 004AE 
04 Q04AF 
04 004BO 
04 004B1 
04 004B2 
0* Q04B3 
04 00484 
04 QQ485 
04 Q04B6 
04 004B7 
04 004B8 
04 00^89 
04 00 4 8A 
04 004BB 
04 0048C 
04 004BD 
04 004BE 
04 004BF 
04 Q04C0 
04 004C1 
04 004C2 
04 0C4C3 
04 004C4 
04 0Q4C5 
04 004C6 
04 004C7 



70200000 X 
E*8COOOF A 
08800000 A 
8^000014 N 
38100000 X 
8X100008 A 
684C04D3 
884000FF A 

40400000 X 

49400507 
3^400000 X 
8880O0FF A 
4*200000 F 
6A800000 X 
70200000 X 
6»80O4BF 
824009C1 A 
2$4Q0010 A 
4^400000 A 
80404000 A 
0820O050 A 
2 A 50OO00 F 
3SA0O5O8 
3X50O00A A 

6«3C04D3 
0820O07O A 



WRL8GD 




LC 

BCR#8 

LCI 

STMjO 

LWjI 

CIjI 

BAZ 

Ll*4 

AKD/4 

BR, 4 

STW*4 

LU2 

AND#? 

BAUSR4 

LC 

BCR#? 

LIj4 

SLS#4 

BR#4 

Al#4 

LCI 

LM#5 

LWjIO 

Cfc*5 

BE 

LCI 



JJJIT 

♦15 



REC8RD*20 

SlCSUP 

2 

WRX 

XtFF« 

Jl JIT 

#X» 03000000 » 

KFYBUFF 

XtFFt 

MtUC*C6CLN 

B!N2HrX 

JIJIT 

fRAt 

16 



X»4000f 

R 

UjUIT+gACCN 

it ? 

10 

WRX 

7 



IS THIS INLINE 

IF N8T, NOTHING Ta DOt 

STUFF THE REGS 

IS THE TWe BIT SfcT 
N8. H©w 0ULLt«t» 

PICK UP THE SYSI& 

MAKE IT A K£Y fQH THE WRITE. 

AND P6KE AwAY« 

GET THE LINE * FROM MjuC 

IS THIS A RA USE** 

IF S8j PUT THAT IN RECftRPj NB LINE Ni 
M8VE ©VER T8 LB6* PRETTY 
PUT IN THE STAR 9R BLANK 
MIDDLE CHR A BLANK 

GET NAME AND ACCOUNT 

PUT IN BLANKS 

IS THE ACC9UNT BLANKS 

B/YES.TIMED 8UT LINE* D8NT WRITE*.. 



HOI 18834 <5EP 08j 

1698 04 QO^CS 

1699 04 004C9 

1700 04 OO^CA 

1701 04 OO^CB 

170? 04 OO^CC 

1703 0^ 004CD 

1704 04 OO^CE 
1# 04 OO^CF 

17C6 04 OO^Do 

1707 04 004D1 

1708 04 004D2 

1709 04 004D3 

1710 04 004D4 

1711 04 004D5 



»75 

20400000 X STMj4 

0480O4D6 WRLOGG CALIj* 

78100000 X LB#l 

35100013 N STW,1. 

2*l0O0C0 A LI#1 

7$l0OO0O X STB#1 

OMOOOOO 06 WRLOGO CALIjI 
0^1004DA CAL1M 

041004D7 WRLOGC CALIjI 

38100013 N KRL9GR LW # i 

75100000 X STBjt 

0820O00O A WRX LCI 

2 A 000014 N LM/O 

E^OOOCOP A B 



CP-V L8G&N/L6G8FF 
RECORD 
WRT1ME 
JB1PRIV 
REC©RD*19 
X»CO' 
JBjPRlV 
WR8PEN 
WRWRlTE 
WRCtS 
RECBRD+19 
JBJPRIV 


REC9RD+20 
#15 



SHOVE INTO BUFFER AREA 
REMEMBER WHEN IT HAPPENED. 
WHATS THIS GUYtS PRIV LEVEL 
REMEMBER THAT* 
1 THINK THAT ITS x*CQ* 
AND I MEAN WHAT i SAY..* 

open sesame 

pbke in the record 

SLAM 

RESTORE THE PRIV LEVEL 

TO KEEP PEOPLE HAPPY, it 

REST9RE THE REGS 
AND SPLlTfttf. 
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Hf)l 1**34 SEP 08# '75 
171? 
1713 
17H 
17 IB 
171* 

1717 
1718 
1719 
1720 
1781 
172? 
1723 
1724 

1725 
1726 

1727 

1728 



1729 



1730 
1731 
173? 
1733 
1734 
173F5 
1736 
1737 
173« 
1739 
174Q 

17*1 
174? 
17*3 
1744 



04 00*06 



0A 00*D7 
04 00*D8 
0* C0*D9 



04 00*DA 
04 00*DB 
04 00*DC 
0* 00*DD 
0* 00*DE 
(54 00*DF 

04 00*E0 
04 Q0*E1 



Of 00000 
06 COOOO 
06 00001 
Oft 00002 
06 00003 

0* 0000* 
06 00005 
06 00006 
0* 00007 
0* 00008 



10000007 N 



l^oooooo N 

8000O000 A 
00000002 A 



UOOOOOO N 

F<«oooo*o a 

000004E2 
0O0OO4E2 

qooqoooo N 

0O00HC2C A 
00000000 N 
00000000 A 



1*000000 N 
C'480009 A 
00000*E2 0* 
00000*E2 0* 
OOOOOOOA A 
00000002 A 
QU0COC02 A 
QO0Q03O4 A 
00000002 A 



# 
« 

# 
* 

« 
wRCLS 



WR8PEN 



CP<*V L8G8N/L8G8FF 
PAGE 

fpt tb Cram time and date int8 Record 

qEN#*j?4 X'10»*REC8RD*7 

CL6SE H6QD file m Mje8j save 
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GEN,*,?4 X»15»jMJEB 
GEN#1jS1 IjO 
DATA 2 



Pi 
SAVE 



U-RITE THE RECORD INT8 THE FILE 



WRwRITE GENjgj?* XiH»jMIEB 

DATA XtFC0OO0*O' 
DATA WePNEjWePNE 



Fl*P6, 6NEWKEY 
ERR8R AND ABNORMAL 



DATA 



REC8RD#*4*KEYBUFF*0 



8PEN THE JL9GD FILE IN jSyS 

TN CSECT BECAUSE WE MAY CHANGE M8DE FR8M JN8UT T8 8UT 

T0 CREATE THE FIlEt 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
W8PNM8DE DATA 
DATA 



CSECT 
GEN**,?* X«1**#MJE8 
X«CF480009» 

W8PNE 

W8PNE 

10 

2 

? 

Xf30*» 

2 



L8TS 8F PARAMETER. «t 
Pl» ERR ADDR 
P2* ABN ADDR 
P5* TRIESpio 

P6» keyed 

P7» DIRECT 

P8* IN8UT SHARE, MAY BE BUT 

PlO- SAVE 



HOI 



1883* < 


;EP 08* 


»75 




1745 


06 


00009 


0U00O004 


A 


1# 


0* 


OOOOA 


0i0on?02 


A 


1747 


06 


OOOOB 


C^7An3D6 


A 




06 


ooooc 


C7C44040 


A 


1748 


06 


0O00D 


02000?02 


A 


1749 


06 


qoooe 


7*EgF8E3 


A 




06 


0000F 


#Q404040 


A 


l75o 


06 


00010 


O^oonpos 


A 


1751 


06 


00011 






175? 


06 


00013 


Q&oon?o2 


A 


1753 


06 


00014 


DbD6H5C5 


A 




06 


00015 


4U4Q4040 


A 


1754 


06 


00016 


0*010^02 


A 


1755 


06 


00017 


D^D6D5C5 


A 




06 


00018 


4U404G40 


A 


1756 


06 


00019 







CP»V L8G9N/L8G8FF 



59 



DATA 4 

TIXTC ML^QD' 

GENjgjRjgjg 2*Qs2s? 
TEXT tjSYS » 

GEN#g,*j8*g 3*o*2mP 
RES 2 
GEN#8j*#8j8 5*0*2*? 
TEXT fNBNEtjf 

GEN#8«*#8«* 6*1*2*? 
TEXT IN6NE » 



USECT 



wrl^qd 



Pl3- KKYH14 
MMEi!l96D 

ACCTilSVS 

PASSW8RDfHASH FR0M L6ADER. 
READwNQNE 

WRITE. N8NE 

BACK T8 PR9CEDUR*- 



HOI 



1*1 

1757 
1758 
1759 
1760 
1761 
176? 

1763 

1764 
17655 
1766 
1767 
1768 
1769 
1770 
1771 
177? 
1773 
1774 
177B 
1776 
1777 
1778 
1779 

1780 
1781 

178? 

1783 
1784 
178?; 

1786 
1787 
1788 
1789 
1790 
1791 
179? 
1793 



34 sEP CS* '75 



PAGE 



CP*V L8G8N/L8G8FF 



8? 



04 004E2 
04 004E3 
0* Q04E4 
0^ QC4E5 
04 004E6 
04 00*E7 
04 004ES 
04 004E9 
04 OO^EA 
04 004E8 
04 C04EC 
04 004ED 
04 C04EE 
04 0Q4EF 

04 004FO 
04 004F1 
04 004F2 
04 004F3 
04 004F4 



04 004F$ 

04 004F6 
04 004F7 
04 004F8 



04 004F9 



7220000A A 
21200014 A 
6^3004F5 
21200003 A 
6*30O4F9 
3SAoool2 N 

6*800000 x 
5^400003 07 

3SAQ0C12 N 
2!?AC006F A 
2220O07F A 
4»20000A A 
6A80OOC0 X 
5S40O004 07 
Q*2004FF 
52400000 X 
21400020 A 
694QO4D0 
6*000401 



32100013 N 
7§>l00C00 X 
0*800502 
6800O4C9 



W8PNE 



wRdgps 



# 
* 

* 

WRBUSY 



THESE PSUTINES HANDLE FRR8R AMD A&N8RMAL C8NDITI8NS 8N THE 
:L86D FILE PR8CESSTNG, 



LB#2 

CU2 

BE 

ClsB 

BE 

STWmo 

BAL4SR4 

STH#4 

LWjSR3 

SLS#SRq 

Ll/2 

AND # ? 

BAL#SR4 

STH#4 

CALli? 

LM#4 

Cl#4 

BANZ 
B 



10 
Xtl4f 

WRBUSY 

3 

!rfR8PN8 

REC8R0+13 

BTN2HKX 

WrMSG*3 

REC8RD*18 

• 17 

X?7Ft 

SR3 

BIN2HEX 

WRMSG+4 

WMSGF 

MJE8 

X'0020< 

WRL8QC 

WRL8GR 



L88K AT THE ERR8R C8DE 

FILE BUSY 

IF S8, THATtS EASY, 

MAYBE THE FILE D&ESNT EXIST. • 

68 CREATE ITi 

SAVE ERR8R C8DE 

CRAM IN ERR8R C8PE 



GET SUBC80E 

STUFF SUBC8DE 
H8LLER T8 8PERAT8R 

IS THE FILE 8PEN 
8/YUP# CL8SE IT 
ELSE JUST SPLITt 



TF THE FILE WAS BUSY* WE REST8RE USER PRIV LEVEL 
AND SLFEP F8R A SEC8ND, THEN TRY AGAIN, 



STBjl 
CAL1#R 



REC8RD*!' 
JBIPRIV 

muzz 

WRL8GG 



ITS N8T THAT I DONT TRUST Y8U..t 

SN88^E.itt 

AND TRY AGAIN. 



3^100007 06 WR8PN8 



IF THF FILE WASN'T THERE, ©PEN IT 8UT# AND G© TRY THE WRITE* 
ANY ERR8RS ARE PASSED THR8UGH THE SAME ERR8K HANDLING C8DE 

LiMl W8PNM8DE GET THE *8DE 



HOI 



18 J 34 SEP O84 <75 

1794 04 004FA 2110O002 

179R 04 004F8 6*3004E7 

1796 04 004PT 2^100002 

1797 04 004FD 35100007 

1798 04 0Q4FE 6S0004CE 
1799 

1800 

1801 
ISO? 



18C3 
1804 
1805 

1806 
1807 



1808 
1809 



04 004FF 

04 00500 
04 00501 



04 

07 
07 
07 
07 
07 
07 

07 
07 
07 

07 

04 
04 
04 
04 
04 
04 



00502 
COOOO 
00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
04 
00503 
00504 
00505 
00506 
00507 
00508 



A 
06 



# 
OOOOOOOO A WMSQF 

80000000 A 
00000000 07 



0^000001 A 

1^40H3D6 A 
C7D6H560 A 
C$D9n940 A 
E7E76C60 A 
E7E740D6 A 
DS407AD3 A 
D6C7C440 A 
C6C903C5 A 

00CA4 

80000000 A 
10000000 A 
OlOOOOOO A 
0020O00O A 
03000000 A 
40404040 A 



WRZZ22 

WRMS6 



C9NTR8L SfXTlftN SUM^ARTJ 



01 00000 
OB 0020C 



PT 
PT 



CP»V L8G8N/L8G8FF 8fc 

Cltl 2 IF ITS 2i8UT# WE*VE TRIED THIS ALREA; 

BE WR88PS AND SH8ULDNT TRY IT AGAIN, 

LI# 1 2 SET THE MODE T8 8UT 

STWjI W6PNM8DE 
B WRL9G9 AND 38 TRY AGAIN* 

FPT F8P 9P MESSAGE 

DATA OjX18O00OOOO»jWRmSG 



SN8&ZF FPT 



SN88ZF F8R 8NE !•? SEC TICKt 



GEN*8j?4 XtF«#i 

CSECT 

TEXTC f 18G8N-ERR XX«-XX 8N |LBGD FILE! 



USECT 
END 



WR8PN8 
L8G8N 



02 OOCOO 
06 00019 



PT 
PT C 



03 00000 
07 00008 



PT 1 

PT 



04 00509 PT 1 



MOl 18H* REP 08j '75 

* SYMB8L VALUES 

AC^l/04 00256 
ARFMgG/O* OOOgC 

au^fxit/04 QClLA 

BLANKS/04 OOOIO 
BYTF/QO000OQ1 
CL8SF/04 00351 
C8NCAT/Q4 003DC 

Den/04 C03UD 

D3/0O0O000E 
FREXT/Q4 0001E 
EVTHN6K/04 00303 
FSI/D4 00376 
I/00O00002 
I8E;RR8R/o4 0026U 
LIMST8RE/Q4 003*6 
L9C5FTLE/04 0035L 
L9G9FF/Q4 00415 
L8G8FFX3/04 0C43D 
L8GRfCS*/0000007E 
LRrARAD/OOOOOCl^ 
LR«CPP/00000008 
LRSPRIV/OOOOOOlU 

lriunml/ooooooh 
lrjubmr/0000006a 

MJL8Q/FXT 
MASJTFR/Q4 CQ004 
MQCPt/04 00378 
NAMACT/04 000l?B 
N8rRFS/04 002BE 

N8MATL/O4 00384 
N8RFTURN/04 003$4 
88PS/04 00272 
8PNMAIL/04 0036* 
8UT3/O4 00150 
8UTPB/04 OOHC 
8U^FA/Q4 0017F 



AMERRMSG/Q4 0008D 
ARS/OCOOOOO4 S 
BADLQMSQ/04 00381 
BUMMER/04 002F9 
CARRRTRN/04 0031B 
CLSMAIL/Q4 0036F 
CRATE/04 00494 
D8MN/04 OOO3C 
D4/OOO00O0F 
ER 10/04 0001 A 
FOERR8P1/04 Q0465 
GHST/04 000A9 
I0MSQ/04 0002E 
JCUSRERR/04 002C1 
LIST/EXT 
L86IT/04 00112 
L3G8FFX/Q4 00423 
L868FFX6/04 00444 
188P/04 003B5 
LRJBIL/OOOOOOOF 
LRjDMR/00000014 
LRJPW/00000006 
LRIUNMP/0000007P 
L«5UPFLQ/0000007A 
MJRATE/EXT 

MCLL/Q4 003P1 
MERTAB/05 00000 
NEWLINE/04 00005 
N6ACCESS/04 0024F 

N8MSG/Q4 00316 
N8THERE/04 00043 
88PS1/04 00PA3 
8PNRFMSQ/04 0006A 
8UT3A/04 0015C 
8UT5C/04 00171 
8UT5F/04 00180 



CP*V L8G8N/L8G8FF 

AMR/Q4 00358 
ASI/04 C0377 
BADLQG8N/05 00015 
BUMMER1/04 002FB 
CHAR8K/04 00302 
C8MMA/04 003C3 
OCBAR/00000004 
Dl/OOOOCOOC 
ECH8WTE/04 0034Q 
ERIOMSQ/04 0031C 
FILEXMSQ/04 00071 
HALF/00000002 
INMSG/04 0033* 

LIMINF8/Q4 003EA 
LMTS2E/0OOOO00F 
L8GIT10/04 00127 
L8G8FFX1/04 0042D 
L8G8N/04 000A4 
LRlACC/OOOOOOOO 
LRJCPA/OOOOOOOA 
LRJEACCT/00000018 
LRJUGML/0000004E 
LRIUNMR/0000005E 
LRIUSR/00000002 
MAILM8G/04 0004D 
MCLLCNT/oOOOOOlF 
MESSAGE/04 0037C 
NEXL88P/04 0013B 
N9C8NNECT/04 00208 
N88CMSG/04 00240 
QFFMSG/04 000A3 
8PEMT/04 00103 
8RATF/04 00479 
8UT4/O4 00166 
8UT5D/04 00174 
8UT6A/04 00182 
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AMWEKR/Q4 0030B 
AUT8CALL/04 001C1 
BKCHCK/04 003CD 
auSY/04 00309 
CLEANuP/04 001B6 
C0MPNS/O4 0012F 
OCBEN/00000003 
02/00O0O0OD 
ERAC/04 GOQie 
ERlDMsGS/04 0032C 
FPTCLSLL/04 00447 
HELDMSG/04 00096 
INQUIRE/04 00009 
LIMINF8A/00000006 
L8FFMSG/O4 00083 
L8GITB5/04 00123 
L8G8FFX2/04 00433 
L8G8N,C8C/04 OOOCB 

LRtAPlS/00000016 
LRJCPN/OOOOOOOC 
LRjFta/00000005 
LRfU«MR/0000006E 

LRJUWML/0000003E 
LT8/04 00411 
MASI/04 004A3 
MCLLMSG/Q4 00324 
MRCPL/O4 00379 
NEXT/04 00137 
N8|MGMSG/Q4 0009D 

N8RATF/04 0045E 
9NATM/04 0003A 
8PNL»G8N/04 00338 
8UT1/04 00143 
8UT5A/04 00169 
&UT5&/04 00178 
QUT69/04 00184 



Hoi 18134 SEP 08* <75 

euT^c/04 ooiaa 

9UT9/04 001»1 
PA<SSW8RD/q4 000#8 
RASjUSR/04 002Et 
RCALl/04 0049C 

RCC9NN8UT/0* OO^Ac 
RETURN/04 0038C 

RO/OOCOOOOO 
R4/00000004 
SCAN/04 003 b 3 
S£ V LDCF2/Q4 0C3^D 
SETRfS/Q* OO49O 

SPEc/00000003 

SR4/o000000 tt 
SYKTAXB/O* 00227 
SYSUNAME/TEXT 
TIM/Q4 00012 
TRtFSl/04 OO239 
TXL©G8N/04 oooou 
WAfTi/o4 0031* 
W8PNM8DE/06 00007 
WRBUsY/O* OO4F5 
WRL9Q0/04 004AE 
WRMSQ/07 00000 
WRTIME/O4 OO4D6 
XFFFF/04 00008 
Y03/04 00007 

♦ FXTFRNAL DpFlMTISN^i 

DI55PLINE/05 00014 

* PRIMARY REFERENCES 



aCCNtSUM 
AMSPRCUR 
D9U8LEZER8 

J I J ! T 
JBJNFPeOL 

JUNAME 
MJX1 



ACCOUNT 

AMjpRM A X 
feRRtSDEM 

H*JXp 

s^BjPRjV 

*EYBUFF 

"AXG 



8UT6E/04 00189 
PACKXMSG/04 0007A 
PCA/04 003C9 
RATEBUSY/Q4 00463 
ROLeQeNM/04 OOOSP 
RESJABN/04 00288 
PGHST/04 OOOBC 

Rl/00000001 
R5/00000005 
SECAT/04 00346 

SETL0CF4/04 003FF 
SLASH/04 0004B 
SRI/0000000* 
SYKPRINT/04 00830 
SYK'TAXC/04 0022C 
SYSUSR/04 OOOOD 
TIMER/0^ 00331 

TRYERR/00000005 
UC/EXT 
WATTS/04 00315 

W6RD/00000000 
WRCLS/04 OO4D7 
WRL8GG/04 004C9 
WR88PS/04 004E7 
WRI^RITE/04 OO4DA 
X1FFFF/04 00009 



PJJ1T/EXT 

AMJOATF 

amjstdsp 

ERRTRY 

jabc 
JCPRe 

LISTL8C 
M0P8 



CP<*V L8G6N/L8Q8FF 
©UT6F/O4 00195 
PARSE/04 G038D 
QUEST/Q4 0004C 
RATEFRR/Q4 0044A 
RDRATERR/O-if OO46E 
RESfERR/04 003B8 
RRATF/04 0048C 
R2/0000000? 
R6/00000006 
SETEABN/Q4 0037? 

SETLDCFfe/Q4 00403 
SLAVF/O4 0000? 
SR2/00000009 
SYNTAX/04 0021F 
SYS/04 OOOOB 
TEL/04 OOOOA 
TIMKWD/Q4 00011 
TSTDI/O4 OO3F8 
USRIERR/04 002CC 
WMSQF/04 004FF 
WRAM1/04 OOlDD 
KRITEAMR/04 OOID3 
WRL8G8/04 004CE 
WRBPEN/06 00000 
WRX/04 OO4D3 
YBLK/04 003BD 

SECTISNi/Q* 00000 



AMJHgD 

AMJXaCC 

JlABUF 

jaccn 

JEUPVP 
MJE0 

MP8 



AMJLNK 
AMH*BiU 

Jiassign 

jb:lc 
jhjldcf 

MjLL 
MPP8 



QUT8/O4 001A3 
PARSfclO/04 003B2 
RASjNFS/04 002E5 
RATEJN/Q4 00421 
REC8NNECT/Q4 00496 
RETrEq/04 001B8 
RRFMSG/04 00063 
R3/00000003 
R7/00000007 
SETLPCF/04 003FB 

SETLPCFg/04 0040 F 
S8RRY/O4 00032 
SR3/0O00000A 
SYNTAxA/04 0021A 
SYSACCNT/TFXT 
THISIS5IT/04 00000 
TRIES/04 00234 
TSTST/04 003^5 

usr;Srri/04 00206 

WBPNE/04 004E3 
WRAM2/04 001^8 
^RL8GC/04 004D0 
WRLBQR/04 004D1 
WR8PNQ/04 004F9 
WRZZiZ/04 00502 
YFFFE/04 00006 



9U 



AM?L9G 


AMIORtt 


Bi(s|2HjrX 


c©cln 


JJCC**UF 


JIEUP 


JB8LPP 


JBSMa* 


JRNST 


JTEUFUGS 


MJ8C 


m;uc 


MUP8 


8PMES 



Hfll 1813* REP 08* '75 

PRDCRM ^RDPRM 

SK5v)e9 T BL SIGUIS 
SHISYMT SLfNAME 

TIMBUF 1 T IMF VERT 
UACCBUNT MEXTACC 

* SECONDARY REFERENCES 

MJACTNTT WASJCBP 
» M© UNDEFINFD S^MBeUS 

* ERRPR SEVERITY lEVEU 3 

* ERRBR LINES 

1529 



RATEPLAG 
SJ8UIS 
STD9PT 
TMDCRM 

UNM£ 



CP«V L8G8N/LeG8FF 
REC8RD RpCSlZE 

SBJGJeBUN SCRaM 
SVJFTYM svslim 
TMDPRM TMPDCPK 

UPASSWD 
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SSC8UP 


S1GJ8&ACN 


SEND8PMS 


shjrnm 


SVIRSTZ 


TIMBuK 


TMPDPPK 


TSTAC* 



